Carlos Arrocha

Carlos Arrocha

La vida es lucha, pero noblemente interpretada.
 689K puntos  España @carlosarrocha2 desde - visto
Preguntar

Respuestas en Visual Basic

Respuesta en y en 2 temas más a

Ejecutar macro al salir de hoja activa

¿Qué quieres decir que se traba mucho? ¿Te da algún error? Pon aquí la otra parte, la macro CrearPDF para ver como tienes el código.
Respuesta en y en 1 temas más a

Ir a otra hoja y ubicarse en la primer celda vacía

Prueba así: Sub Hallar() With Worksheets("NIT") .Range("A1").End(xlDown).Offset(1, 0).Select End With End Sub Salu2 Carlos Arrocha
Respuesta en y en 1 temas más a

Mensaje en celda al ubicarse en una celda

Prueba con el siguiente código. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 15 Then Range("E3") = "Seleccione el código del descuento" Else Range("E3") = "" End If End Sub El código lo pones en los eventos de la...
Respuesta en y en 2 temas más a

Volver a la hoja que usaba

[Hola Cintia. Prueba con lo siguiente a ver si es lo que necesitas. Coloca el siguiente código en los eventos de Thisworkbook. Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) HojaAnterior = Sh.Name End Sub Y el siguiente lo pones en un...
Respuesta en y en 2 temas más a

¿Cómo eliminar filas utilizando macros y Código VBA?

Prueba con la siguiente a ver si es lo que necesitas. La macro comienza en la fila 2, cambia en el código la "C" por la columna que necesites. Sub EliminarFilas() For i = 2 To Range("C" & Rows.Count).End(3).Row If Cells(i, "C") = "0" Then...
Respuesta en y en 1 temas más a

ListBox que me reflejen 3 columnas

Prueba añadiendo después de la siguiente línea ListBox1.List(ListBox1.ListCount - 1, 2) = cliente.Row Esta otra ListBox1.List(ListBox1.ListCount - 1,3) = cliente.Row Y revisa en la propiedad ColumCount del listbox la cantidad
Respuesta en y en 2 temas más a

Coincidencia exacta en un texbox

Prueba con esta macro a ver si te va bien. Private Sub TextBox1_AfterUpdate() Set h = Sheets("Hoja2") If TextBox1 = "" Then Exit Sub x = TextBox1.Value Set b = h.Columns("B").Find(x, lookat:=xlWhole) If b Is Nothing Then MsgBox "DATO NO ENCONTRADO",...
Respuesta en y en 1 temas más a

Al oprimir cancelar en inputbox cierra pero sigue haciendo el resto del sub

Prueba cambiando esta línea If copia = vbCancel Then Exit Sub Por esta If copia = Empty Then Exit Sub
Respuesta en y en 2 temas más a

Como eliminar las hojas excel que aparecen en codigo visual

Lo normal es que si eliminas la hoja del libro se elimine también de vba y no aparezca, pero si en tu caso no es así, prueba cerrando el libro y lo vuelves a abrir.
Respuesta en y en 2 temas más a

Puedo ubicar el selector de excel en el ultimo registro

Si solo quieres que te sitúe en la última celda te podría servir algo así. Private Sub CommandButton1_Click() Set h1 = Sheets("Hoja1") h1.Range("A" & Rows.Count).End(3).Select End Sub

Suscríbete RSS