Adriel Ortiz Mangia

[Hola Sub buscar() 'Act. Adriel Ortiz '//Todoexpertos ' codi = InputBox("Ingresa código a buscar") 'si dejó el campo vacío cancela el proceso If IsEmpty(codi) Then Exit Sub 'busca el código en Hoja2, col A Set busco =...

[Hola En el evento change de tu hoja pon esta macro Private Sub Worksheet_Change(ByVal Target As Range) ' col = "B:B" ' columna stock col2 = "C" ' columna recompra ' If Not Intersect(Target, Range(col)) Is Nothing Then If Target.Count > 1 Then Exit...

[Hola usa esto Sub limpiar() Set h1 = Sheets("Hoja1") ' H1.Range("B3:Q" & Rows. Count). ClearContents End Sub

[Hola envíame tu archivo [email protected]

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