Adriel Ortiz Mangia

[Hola envíame tu archivo [email protected]

[Hola Lo conseguimos con esta macro, copia esto en la hoja2. Estoy suponiendo que en la hoja1, columnas A están los registros y en la hoja2 columna A los registros utilizados. Cuando digitas un registro y presionas enter la macro busca coincidencias...

[Hola Detalla con ejemplos y ver los procesos a realizar

[Hola Envíame tu archivo [email protected] y me explicas con ejemplos reales y el resultado como debe quedar

De acuerdo a esto Basicamente lo que necesito es eliminar las filas donde en la columna C no se encuentren la palaba "Equipo" ni exista fechas. Te paso la macro Sub Eliminar() Set h1 = Sheets("Hoja1") 'Nombre de la hoja ' u = h1.Range("C" &...

[Hola Sub copiar() Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' u = h2.Range("C" & Rows.Count).End(xlUp).Row + 1 h1.Range("A5:E5").Copy h2.Range("C" & u).PasteSpecial xlAll ' Application.CutCopyMode = False MsgBox "Copiado" End Sub Valora la...

[Hola Prueba así Private Sub CommandButton1_Click() If (Len(TextBox1) = 0 Or Len(TextBox1) < 4 Or Len(TextBox1) > 4) Then MsgBox "Error" Exit Sub End If '' ' 'aqui el código que sigue End Sub Valora la repuesta para finalizar saludos!

Prueba así Set Worksheet = Sheets("Serigrafía") ' With Worksheet contfila = .Range("A" & Rows.Count).End(xlUp).Row + 1 .Cells(contfila, 14).Value = Me.TextBox3.Value .Cells(contfila, 23).Value = Me.ComboBox1.Value .Cells(contfila, 26).Value =...

[Hola prueba con esto Sub ClearIEWS() Sheets("IEWS"). Range("E8, E10... completa el resto...").ClearContents Sheets("IEWS"). Range("B96, B98... completa el resto...").ClearContents Sheets("IEWS"). Range("H138, H140... completa el...

[Hola Mi email [email protected] y detallas lo que debe hacer la macro y en otra hoja el resultado esperado