Adriel Ortiz Mangia

[Hola Te paso la macro, cambias el nombre de la hoja por el tuyo ' Valora la respuesta para finalizar saludos! Private Sub ComboBox1_Change() Set h1 = Sheets("Hoja1") ' Hoja1 Set b = h1.Columns("A").Find(ComboBox1, LookAt:=xlWhole) If Not b Is...

[Hola Te paso la macro Valora la respuesta para finalizar saludos! Sub actualiza_dato() ' 'Por Adriel Ortiz Set h1 = Sheets("Registro") ' Hoja1 Set h2 = Sheets("Datos") ' Hoja2 ' dato = h1.Range("A2") 'Dato a buscar ' Set b =...

[Hola Te paso la macro, cambia el nombre de la hoja por el tuyo ' Valora la respuesta para finalizar saludos! Private Sub Workbook_Open() '**Por Adriel Ortiz ' Set h1 = Sheets("Hoja1") ' For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row If...

Es control+shift + enter

Prueba con esto Private Sub CommandButton1_Click() miDestino = InputBox("Ordinal", "Introduccion de datos", "Nº ordinal oficina") ' Set ordinales = Sheets("000_Oficina_Direccion").Range("C2:D46").Find(what:=miDestino, lookat:=xlPart) ' If ordinales...

[Hola Lo haces de esta forma Private Sub CommandButton1_Click() Call macro1 Call macro2 End Sub ' Sub macro1() MsgBox "Prueba1" End Sub ' Sub macro2() MsgBox "Prueba2" End Sub Valora la respuesta para finalizar!

[Hola Te paso la macro Sub Macro_Ocultar() ActiveSheet.Range("$A$1:$A$100").AutoFilter Field:=1, Criteria1:="<>" & "TRANPORTE" End SubSub Macro_Mostrar() ActiveSheet.Range("$A$1:$A$100").AutoFilter Field:=1 End Sub

[Hola Prueba esto Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Act. Adriel If Not Intersect(Target, Range("E4:E164")) Is Nothing Then If Cells(Target.Row, "B") = "" Then MsgBox "la columna B no contiene datos" Else UserForm1.Show End...

Te paso la macro Actualizada Private Sub ComboBox1_Click() 'Act. Adriel ortiz Set h = Sheets("Hoja1") valor = ComboBox1.Value Set busca = h.Range("a1:a100").Find(valor, LookIn:=xlValues, lookat:=xlWhole) ' If Not busca Is Nothing Then ubica =...

[Hola En la hoja1 están tus datos en la fila 2 y tus datos que no se eliminaran pon en la hoja2 en la columna A. Valora la respuesta para finalizar saludos! Sub eliminar() 'Por Adriel Ortiz ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' u1 =...