Francisco Ocampo

Les pido su ayuda para este problema: Tengo una macro que cuando se ejecuta, deja ciertas hojas activas, hasta ahí todo bien, aquí necesito un código que me copie las hojas activas a un libro nuevo, que me pregunte donde deseo guardarlo y que cuando...

Estoy haciendo pruebas y me atore con este erroe, mi intención es para ir agregando ciertos datos de una hoja y mandarlos a una base de datos en el mismo libro, mi código es este: Sheets("Formato").Select Range("O14:U27").Select Selection.Copy...

Tengo este código: Sub Botón2_Haga_clic_en() Sheets("B"). Range("B65536").End(xlUp).Offset(1, 0) = Sheets("A"). Range("A2") Sheets("B"). Range("B65536").End(xlUp).Offset(0, 1) = Sheets("A"). Range("A3") Sheets("B")....

Hola, deseo saber si me ayudan con la macro para contar las hojas visibles y que el resultado lo ponga en la celda A1 Gracias de antemano Saludos Cordiales

Tengo el siguiente código: Private Sub CommandButton1_Click() If Range("B4:B10") = "ACAPULCO" Then Sheets("ACAPULCO").Visible = True Else Sheets("ACAPULCO").Visible = False End If El cual me indica error 13 no coinciden los tipos Lo que deseo es que...

Hola buena noche, tengo esta macro sencilla, para modificar el color de la fuente: Sub Macro2() ' ' Macro2 Macro ' ' Acceso directo: CTRL+z ' Range("E11:F11").Select With Selection.Font .Color = -16711681 .TintAndShade = 0 End With End Sub Pero...

Que me proporcionaron en el foro: Con este código, se guarda la imagen de excel en una carpeta en especifico Sub ejemplo2() 'Por.DAM On Error Resume Next For i = 2 To Range("A" & Rows.Count).End(xlUp).Row For Each img In ActiveSheet.DrawingObjects If...

Hola buen día, les pido su ayuda, tengo este código que me han ayudado a mejorarlo en el foro, trae la imagen del producto, siempre y cuando la descripción coincida, este va en la hoja 1:: Private Sub Worksheet_SelectionChange(ByVal Target As Range)...

He aprendido mucho en el foro, pero ahora me tope con un detalle, tengo este código: Sub insertarimagen() 'Por.DAM On Error Resume Next ruta = ActiveWorkbook.Path & "\" For i = 1 To Range("A" & Rows.Count).End(xlUp).Row imagen = Cells(i, "A") Set img...

Tengo este código que me ayudaron a editarlo en el foro, a mis necesidades y funciona perfectamente: Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Mod.Por.DAM On Error Resume Next If Not Intersect(Target, Range("H4:H723")) Is Nothing...