Adriel Ortiz Mangia

</Hola Para pasar los datos del formulario sería al revés Range("G2") = Format(val(Textbox1), "#,##0.00")

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 cambia la linea por esto If UCase(h2.Cells(i, "A")) = UCase(dato) Then

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

H o l a te paso la macro, asumiendo que es un formulario Private Sub UserForm_Activate() '//Por Adriel Ortiz Me.ListBox51.ColumnCount = 1 ' Set h = Sheets("Hoja1") For i = 8 To h.Range("I" & Rows.Count).End(xlUp).Row If h.Cells(i, "I") > 0 Then...

H o l a te paso la macro Sub compara_copia_ordena() '//Por Adriel Ortiz ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' For i = 2 To h2.Range("A" & Rows.Count).End(xlUp).Row Set b = h1.Columns("A").Find(h2.Cells(i, "A"), lookat:=xlWhole) If b...