Cecilio Pérez Maqueda

De cualquier manera si eliges tu columnay/o rango donde se encuentra tus fechas puedes solucionarlo rápido yendo al menú de Datos, Texto en columnas, Delimitados, Tabulación, Eliges Fecha DMA, Finalizar.

Sub ConvertirTextotANumero() Dim celda As Range Application.StatusBar = "Convirtiendo celdas seleccionadas a formato de número..." r = "B2:G15" For Each celda In Range(r) 'Se evalua cada celda del rango y se hace la conversión celda.Value =...

Si gustas mándame tu archivo para trabajarlo A lo que entendisi en A1 dice Pinturas y en B1 dice 1000 y en A2 dice proveedor y en b2 dice 2000 Y en A3 dice pintura y b3 dice 3000, entonces en otra hoja que ponga Pintura 4000 es correcto y así...

¿Por decir si escogen Gass que haría o si escogen american?

Te paso un ejemplo para que lo adaptes, o si gustas mándame tu archivo para trabajarlo mi correo es [email protected] Sub quieres() 'by Cecilio Perez maqueda Dim wb As Workbook: Set wb = ThisWorkbook Dim Ho As Worksheet: Set Ho =...

¿Y no te serviría algo así? ¿O no se encuentran en el mismo rango tus títulos? Tit = range("B2:N2")

a ver prueba con esto al parecer usaste (;) en lugar de (, ) =BUSCARV(A2,ALF13-16'!$A$2:$H$6963,8,0) Por si no queda, si gustas mándame tu archivo a [email protected]

Si gustas mándame tu archivo a [email protected] para trabajarlo

siono = MSgbox("¿Desea ejecutar la rutina?", vbQuestion + vbYesNo, "Confirmar") If siono <> vbYes Then GoTo saliendo MSgbox "La rutina no se ejecutó" Aquí iría tu rutina que deseas que se ejecute Saliendo: Exit sub

Que tal mira este ejemplo te puede servir adáptalo según tu proyecto Sub concilia() 'by Cperez maqueda Dim i As Long Dim y As Long Dim wb As Workbook: Set wb = ThisWorkbook Dim h1 As Worksheet: Set h1 = wb.Sheets("Hoja1") Dim h2 As Worksheet: Set h2...