Adriel Ortiz Mangia

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

[Hola Te paso la macro Para finalizar hay 2 opciones Excelente o bueno saludos! Sub eliminar() ' 'Por Adriel Ortiz ' Set h = Sheets("Hoja1") u = h.Range("A" & Rows.Count).End(xlUp).Row For i = u To 9 Step -1 If h.Cells(i, "A") = "" Then...

[Hola Te paso la macro Para finalizar hay 2 opciones Excelente o bueno saludos! Sub copia() ' '**Act.Adriel Ortiz ' texto = ActiveCell For i = ActiveCell.Row To 1 Step -1 If Cells(i, ActiveCell.Column).Value = "" Then Cells(i,...

[Hola Te paso la macro Para finalizar hay 2 opciones Excelente o bueno saludos! Sub copiahoja() ' '**Por Adriel Ortiz ' Application.ScreenUpdating = False Sheets("Reporte").Visible = False existe = False For Each h In Sheets nom = Format(Date,...

Al final agrega esto Sheets("HojaA").Select Selection. Clear

[Hola Te paso la macro Valora la respuesta para finalizar saludos! Sub copiar() ' 'Por Adriel Ortiz ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' u = h1.Range("A" & Rows.Count).End(xlUp).Row u2 = h2.Range("A" & Rows.Count).End(xlUp).Row + 1 '...

[Hola Muestra una imagen con tienes una organizado tus datos y que se note la fila y columna

[Hola deseas buscar si un código se repite en una columna ? Private Sub CommandButton1_Click() ' '***Por Adriel Ortiz ' Set h = Sheets("Hoja1") ' nombre de la hoja ' Set r = h.Columns("A") Set b = r.Find(TextBox1, lookat:=xlWhole) If Not b Is Nothing...

[Hola Te paso la macro actualizada Private Sub btnCargar_Click() ' 'Act. Por Adriel Ortiz 'Declaramos variables Dim Cargar As String ' Set h = Sheets("BDRutinas2") ' Cargar = MsgBox("Deseas cargar la sesión seleccionada?", vbYesNo) If Cargar = vbYes...

[Hola Envíame tu archivo y me explicas con un ejemplo. [email protected]