Adriel Ortiz Mangia

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

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

[Hola Te paso la macro, cambia los nombres de los textbox y de la hoja por el tuyo Para finalizar hay 2 opciones Excelente o bueno saludos. Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Set h1 = Sheets("Hoja3") Set b =...

[Hola para mostrar las hojas ocultas usa esto Sub mostrar() For Each h In Sheets If h.Visible <> -1 Then h.Visible = -1 End If Next msgbox "fin" End Sub valorar la respuesta para finalizar saludos!

[Hola Te paso la macro Esto copia datos de la columna A a la columnas D Para finalizar hay 2 opciones Excelente o bueno saludos! Sub copiar_datos() 'Por Adriel Ortiz ' Set h1 = ActiveSheet ' u = h1.Range("A" & Rows.Count).End(xlUp).Row...

[Hola Te paso la macro actualizada Valora la respuesta para finalizar saludos! Sub buscar() ' 'Por Adriel Ortiz ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") Set h3 = Sheets("Hoja3") ' Dato = h1.TextBox1 Set r = h1.Columns("A") Set b =...