Adriel Ortiz Mangia

[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

[Hola Te paso la macro del generoso Dante Amor Cambia toda la macro por esto Valora la respuesta para finalizar 'se actualiza el textbox al clickear en el checkbox Private Sub CheckBox1_Click() If CheckBox1 Then TextBox1.Text = "ALMACEN EXTERNO" Else...

[Hola Prueba con esto Sub Buscar() Dim WS As Worksheet Dim rBingo As Range Borrar_Form nombrehoja = "buscar" For Each WS In ThisWorkbook.Worksheets If LCase(WS.Name) <> LCase(nombrehoja) Then If WS.Name Like "*" Then Set rBingo =...