Adriel Ortiz Mangia

[Hola Valora la respuesta para finalizar Lo harías de esta manera Private Sub UserForm_Initialize() Dim Hoja As Worksheet ComboBox1.Clear For Each Hoja In Worksheets If Hoja.Visible <> False Then ComboBox1.AddItem Hoja.Name End If Next End Sub creas...

¿Y la lista en cuál hoja está?

[Hola Sube tu archivo y explica resaltando con colores los procesos a realizar

[Hola Aquí te dieron respuesta, si tienes dudas aun sigue con la consulta y valora la respuesta .. saludos! Combobox sin duplicados con macro

[Hola valora la respuesta para finalizar Sub borra_contenido() ' 'para borra2 fila 2 Rows("2:2").ClearContents End Sub para borrar de la fila 2 al 10 Sub borra_contenido() ' 'para borra2 fila 2 al 10 Rows("2:10").ClearContents End Sub

[Hola Pon un ejemplo como deseas el resultado

[Hola valora la respuesta para finalizar Sub copia_elimina() ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") u = h2.Range("B" & Rows.Count).End(xlUp).Row + 1 ' For i = h1.Range("B" & Rows.Count).End(xlUp).Row To 28 Step -1 If h1.Cells(i, "B") <>...

[Hola Valora la respuesta para finalizar Va la macro Sub copia() Set h1 = Sheets("Data") Set h2 = Sheets("FRS") ' u = h1.Range("A" & Rows.Count).End(xlUp).Row + 1 For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row If h1.Cells(i, "B") = "FRS" Then...

[Hola Pon imágenes un antes y después para entender mejor y apoyarte

[Hola va la macro Sub copiar() Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' h1.Range("A1:C3").Copy h2.Range("F1") h1.Range("A20:C22").Copy h2.Range("F20") MsgBox "fin" End Sub