Respuesta
en
Microsoft Excel
y en 2 temas más
a
¿Cómo programar los botones “primera fila”, “anterior” , “siguiente” y “última fila” de un ListBox?
Te anexo el código para moverse en el listbox y también en la hoja 'Por Dante Amor Private Sub CommandButton1_Click() 'Primera If ListBox1.ListCount > -1 Then ListBox1.Selected(0) = True Range("tabla1").Cells(ListBox1.ListIndex + 1, "A").Select End...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro para seleccionar dato de un listbox, buscar el dato en una Base de Datos y señalar la fila
Te anexo el código Private Sub CommandButton1_Click() If ListBox1.ListIndex = -1 Then MsgBox "Selecciona un registro del list" Exit Sub End If ' codigo = Val(ListBox1.List(ListBox1.ListIndex, 0)) Set h = Sheets("APU") Set b =...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Pegar datos en excel según condición en VBA
Te anexo la macro Sub Buscar_Pegar() 'Por Dante Amor 'Pegar datos en excel según condición Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") For i = 5 To 98 If h1.Cells(i, "Q") <> "" Then Set b = h2.Range("J3:J2000").Find(h1.Cells(i, "Q").Value,...
Respuesta
en
Microsoft Excel
y en 3 temas más
a
Macro para Ingresar miles y decimales textbox
Prueba con lo siguiente If isnumeric(textbox6.value) and textbox6.value <> "" then Activesheet.Cell(3, 12) = CDbl(textbox6.value) End If
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Bucle para leer una lista de artículos en una hoja y modificar los importes en otra Excel vba
Te anexo el código actualizado con el Bucle Sub Actualizar() Dim ultLinea As Long, u As Long Dim ultLineaDatos As Long Dim codigo As String, cantidad As Long, movimiento As String Dim posicion As String, ordenpicking As String Dim busquedaFilaDatos...
Respuesta
en
VBA
y en 3 temas más
a
Datos duplicados y envio de datos a otro Libro
Revisemos el problema 1. Según entiendo quieres poner en la celda A2 la oficina, en la B2 el número, en la C2 el año y en la D2 los 3 datos concatenados. Si es así, entonces utiliza los siguiente: Private Sub CommandButton1_Click() ' dato =...
Respuesta
en
Microsoft Excel
y en 3 temas más
a
Código para auto rellenar una columna en Excel con función BuscarV
Las 2 macros no se complementan, las 2 macros sirven para rellenar. Puedes ocupar así: Range("C2:C" & Range("B" & Rows.Count).End(xlUp).Row).FormulaR1C1 = "=VLOOKUP(RC[-2],Reportes!C[2]:C[10],9,0)" O de esta forma: Range("C2").Select...
Respuesta
en
Programación
y en 1 temas más
a
De 3 columnas de hoja1 excel unirlas en 1 sola columna en listbox1
Pon el siguiente evento en tu userform Private Sub UserForm_Activate() Set h1 = Sheets("Hoja1") For i = 1 To h1.Range("A" & Rows.Count).End(xlUp).Row ListBox1.AddItem h1.Cells(i, "A") & h1.Cells(i, "B") & h1.Cells(i, "C") Next End Sub Si quieres un...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Código para auto rellenar en Excel
Te anexo el código, rellena desde la celda B1 hasta B y última fila de la columna A Sub Rellenar() Range("B1:B" & Range("A" & Rows.Count).End(xlUp).Row).Value = "SI" End Sub . .Sal u dos. Dante Amor. R ecuerda valorar la respuesta. G racias .
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Urge una Macro en excel para buscar y eliminar usando contenido de una celda
Te anexo la macro para eliminar el contenido de la celda Sub Macro1() ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") If h1.AutoFilterMode Then h1.AutoFilterMode = False u = h1.Range("A" & Rows.Count).End(xlUp).Row h1.Range("A1:A" & u).AutoFilter...