Dante Amor

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...

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 =...

Con fórmula, tendrías que llenar la columna A desde la A4 hasta la última celda con fórmulas para realizar la numeración. Lo más práctico sería con una macro. Utiliza la siguiente macro para la numeración: Sub Numeracion() fila = 4 Range("A" & fila &...

Para conservar los encabezados debes cargar con la propiedad Rowsource, en esos casos lo conveniente es pasar los datos filtrados a otra hoja temporal, y cargar los datos desde la hoja temporal. Por ejemplo: Private Sub text_buscar_Change() 'Act Por...

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...

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...

Pon la siguiente función en un módulo de VBA Function ConcatenaRango(rango As Range) For Each celda In rango cadena = cadena & celda.Value Next ConcatenaRango = cadena End Function Sigue las Instrucciones para una Función Abre tu libro de excelPara...

Pon la siguiente fórmula en una celda =SUMAR.SI(J:J;"jose";H:H) . .Sal u dos. Dante Amor. R ecuerda valorar la respuesta. G racias .

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 .

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...