Adriel Ortiz Mangia

[Hola La macro que pones es para insertar imágenes.

[Hola Dime paso a paso lo que necesitas con imágenes

[Hola Te paso la macro Sub copiar() 'valora la respuesta para finalizar 'Adriel ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Estado") ' For i = 7 To h1.Range("A" & Rows.Count).End(xlUp).Row If h1.Cells(i, "AD") < 51 Then u2 = h2.Range("A" &...

[Hola Asegúrate que el nombre de la hoja esté escrito correctamente, revisa si hay espacio después del nombre Private Sub CommandButton1_Click() Set h = Sheets("Hoja4") ' h.Visible = True h.Select h.Range("A1") = UserForm1.TextBox1 End Sub

[Hola Prueba así, guardando la configuración de tu formulario a una celda. Por ejemplo para tu formulario los option if option1 = true then sheets("Hoja1").Range("A1") = "Bolivares" if option2 = true then sheets("Hoja1").Range("A1") = "Sol" . . . Y...

[Hola Te paso la macro Sub SEPARA_CADENA() ' 'VALORA LA RESPUESTA PARA FINALIZAR Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' ini = 2 'fila inicio k = 1 h2.Cells.ClearContents For i = ini To h1.Range("AT" & Rows.Count).End(xlUp).Row If...

[Hola Te paso la macro Valora la respuesta con manito arriba para finalizar Sub copiar_datos() 'Por.Adriel ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' h2.Cells.Clear k = 1 For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row If h1.Cells(i,...

[Hola Te paso la macro Valora la respuesta para finalizar Sub copiahoja() 'Por.dam 'Act. Adriel Ortiz Set l1 = ThisWorkbook Set h1 = l1.Sheets("Hoja1") ' ruta = ThisWorkbook.Path & "\" ARCH = "NUEVA DATA" h1.Copy Application.DisplayAlerts = False...

Envíame tu archivo [email protected]

[Hola Te recomiendo que el color sea gris quede uniforme