Adriel Ortiz Mangia

[Hola Envíame tu archivo y me explicas como quedará el resultado saludos!

[Hola Te paso la macro para buscar. Para finalizar hay 2 opciones bueno o Excelente saludos! Private Sub CommandButton1_Click() 'Por Adriel Ortiz Set h = ActiveSheet ' HOJA SELECCIONADA Set b = h.Columns("A").Find(TextBox1, lookat:=xlWhole) ' BUSCA...

[Hola Te paso la macro actualizada, agrega un combobox para que selecciones una hoja a buscar Valora la respuesta para finalizar saludos! Private Sub anular_Click() ' '***Act. Por Adriel Ortiz ' hoja = ComboBox1 Select Case Sheets(hoja).Name ' Case...

[Hola Envíame tu archivo con ejemplos y el resultado deseado a [email protected]

[Hola Muestra una imagen de tus datos y el resultado deseado o envíame tu archivo con ejemplos

[Hola Sub copiarDatos() ' '***Por Adriel Ortiz ' Set h1 = Sheets("BASE JUNIO") ' For i = 3 To h1.Range("G" & Rows.Count).End(xlUp).Row hoja = h1.Cells(i, "G") ' For Each h In Sheets If h.Name <> h1.Name Then If h.Name = hoja Then j = h.Range("A" &...

[Hola Te paso la macro, el resultado lo pondrá en la columna F Sub Macro1() ' ' ***Por Adriel ' u = Range("A" & Rows.Count).End(xlUp).Row With ActiveSheet.Range("F1:F" & u) .FormulaR1C1 = "=CONCATENATE(RC[-5],RC[-4],RC[-3],RC[-2])" .Value = .Value...

[Hola yo uso esta macro, cambia el nombre del combobox y la columna a filtrar Private Sub CommandButton1_Click() 'Por.DAM ComboBox1.Clear uf = Sheets("Producción").Range("F" & Rows.Count).End(xlUp).Row For i = 10 To uf AddItem ComboBox1,...

[Hola te paso la macro Private Sub CommandButton1_Click() '**Por Adriel ' Set h1 = Sheets("Hoja1") ' If h1.AutoFilterMode Then h1.AutoFilterMode = False date_ini = Format(TextBox1, "mm/dd/yyyy") date_fin = Format(TextBox2, "mm/dd/yyyy") ' u =...

[Hola Te paso la macro Para finalizar hay 2 opciones Excelente o bueno saludos! Sub copiar() 'Por Adriel Ortiz Set h1 = Sheets("Hoja1") ' Hoja1 Set h2 = Sheets("Hoja2") ' Hoja2 ' j = 2 For i = 2 To h1.Range("E" & Rows.Count).End(xlUp).Row If...