Raúl Guerrero

¿Ya revisaste que la columna "C" tenga el nombre del archivo de la imagen y que la ruta donde debe tomar las imágenes sea válida al igual que los nombres de las imágenes?

Tal vez te pueda ser útil esto: For i =5 to Range("a1048576"). End(xlup).row If Len(Range("a" & i).value) <> 4 then Range ("a"&i).value =0 End if Next Espero te sea de utilidad y si necesitas algo más avisame!

Sub Contar() resultado1 = Hoja1.Range("a1048576").End(xlUp).Row resultado2 = Hoja2.Range("a1048576").End(xlUp).Row MsgBox "En la hoja 1 hay " & resultado1, vbInformation + vbOKOnly, "Conteo de filas" MsgBox "En la hoja 2 hay " & resultado2 End Sub...

Necesitas usar la fórmula "encontrar" y extraer Suponiendo que la dirección está en el rango B2 escribe esta fórmula =Extrae(B2,Encontrar("#",B2+1,4) Esta fórmula te extrera el número una vez que encuentre el dígito # Para que te de Norte o Sur,...

En tu combobox escribe: Private Sub comboBox1_click() For i = 1 to Range("b1048576"). End(xlup).Row If Range("a" & i).value = me.Combobox1.value then Resultado = Range("B" & i).value End if End sub La variable resultado la puedes cargar a un textbox...

Para recorrer las hojas de un libro usa un bucle: For i = 1 to sheets.count If sheet(i).visible = true then Sheet(i).select End if Next

¿Puedes poner una captura de pantalla del reporte que genera por favor? Sólo para ver cómo se llama el reporte. Tal vez sólo sea las comas que pones entre el formato de fecha.

Haz el mismo proceso para hoja 2 Sheets("Hoja2").ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=wpath & Nombre & ".pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False Y al envío del...

Tal vez este video te ayude. El primero es para crear una tabla dinámica con Segmentos (a los jefes les encanta esto) El segundo es como crear un gráfico dinámico con algunos tips...

Puedes intentar lo siguiente: Sub grabar() COMPROBANTE_No = range("G3").VALUE CHEQUE_No = Range("G4").VALUE Hoja2.Activate Application.GoTo Reference:=Range("b65000") Selection.End(xlUp).Select If ActiveCell = "" Then ActiveCell.Offset(-1, 0).Select...