Adriel Ortiz Mangia

[Hola ¿La fecha tiene que buscar en todas las tablas o solo en 1? En la imagen no se nota la filas y las columnas

[Hola Te paso la macro Valora la respuesta con +Excelente para finalizar saludos! Private Sub Worksheet_Change(ByVal Target As Range) ' '//Por Adriel Ortiz ' If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Range("A:A")) Is Nothing Then...

[Hola Te paso la macro Sub buscarxx() '//Todoexpertos '[Por Adriel Ortiz ' ' Application.ScreenUpdating = False Application.DisplayAlerts = False ' Set l1 = ThisWorkbook Set h1 = l1.Sheets("Hoja1") ' ruta = "C:\Users\Aortiz\Desktop\practica\" libro2...

[Hola Que tal así, comentas y valoras Sub buscar() 'Por.DAM Set h1 = Sheets("Hoja1") 'nombre de hoja ' u = h1.Range("A" & Rows.Count).End(xlUp).Row Set b = h1.Range("A8:A" & u).Find(h1.Range("A7"), lookat:=xlWhole) If Not b Is Nothing Then b.Select...

[Hola Prueba con esto Valora la respuesta para finalizar Sub limpiar() '//Todoexpertos '[Por Adriel For Each r In Range("F1:GT217") If r = "x" Then r.ClearContents End If Next r End Sub

[Hola Revisa esta respuesta de Dante Macro para insertar fila según valor de una celda

[Hola Prueba con esto y me comentas Sub buscarx() '//Todoexpertos '[Por Adriel ' Set l1 = ThisWorkbook Set h1 = l1.Sheets(1) Set l2 = Workbooks.Add Set h2 = Sheets(1) ' buscar = "peru" 'dato a buscar Set rango = h1.Range("A1:D10") 'rango a buscar '...

[Hola Para buscar es el Inputbox Te paso la macro Valora la respuesta para finalizar saludos Sub buscarx() '//Todoexpertos '[Por Adriel ' buscar = InputBox("Buscar dato", "Buscar....") If buscar = "" Then Exit Sub ' col = "A" ' columna a buscar col2...

[Hola prueba con esto Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If TextBox1 <> "" Then fecha = TextBox1 & "/" & Month(Date) & "/" & Year(Date) TextBox1 = CDate(fecha) End If

[/Hola Te paso la macro Valora la respuesta para finalizar Sub separar() 'Por Adriel 'https://www.todoexpertos.com Application.ScreenUpdating = False For i = 3 To Range("C" & Rows.Count).End(xlUp).Row datos = Split(Cells(i, "C"), "-") On Error Resume...