Adriel Ortiz Mangia

</Hola Puedes poner como está organizado tus datos y el resultado deseado saludos!

H o l a No entendí tu solicitud, la macro que muestras es para cargar datos en el combobox, si es para copiar datos de la hoja1 a la hoja2 dime cual columnas y filas vas copiar espero tus comentarios saludos!

H o l a te paso la macro Sub eliminar_hoja() '//Por Adriel Ortiz ' Application.ScreenUpdating = False Application.DisplayAlerts = False ' Set h1 = Sheets("Hoja1") dato = h1.[A1] If dato = "" Then MsgBox "captura un dato" Exit Sub End If ' Select Case...

H o l a Te paso 2 opciones 1.-Cambia los nombres de los textbox por el tuyo If TextBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Then MsgBox "captura todos los datos" Exit Sub End If 2.- pero si son varios textbox, validamos de una sola. For Each...

H o l a cambia la linea por esto If UCase(h2.Cells(i, "A")) = UCase(dato) Then

H o l a En el código hay nombres de controles que no existen, fíjate que los nombres que tienes en cada control sea igual que en el código. Muestra una imagen del error saludos!

H o l a Deseas que se elimine el dato encontrado o toda la fila

H o l a te paso la macro Sub copia() '//Por Adriel Ortiz Mangia Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") If h1.[A2] = "" Then MsgBox "captura un código" Exit Sub End If ' If h1.[A3] = "" Then MsgBox "captura un dato en A3" Exit Sub End If '...

H o l a Puedes mostrar una imagen de tu formulario y el código

H o l a Cual es la columna a comparar