Luis_P

'4c7569735f50 Asi: [a2] = "=DATE(YEAR(" & "a1" & "),""12"",""31"")" Pone la formula en a2 con referencia al dato de a1

Ok, entonces primero algunas consideracines: 1. La lista de estados estara en la hoja2 en columna A sin rotulos ni filas vacias entre datos desde a1 hacia abajo, 2. La tabla de datos a recorrer esta en la hoja1 desde fila 2 hacia abajo ( la 1 tiene...

Asi: Sub guarda() '4c7569735f50 ActiveWorkbook.SaveAs Filename:="C:\Libro1.csv", FileFormat:=xlCSV, _ CreateBackup:=False End Sub Guardas el libro activo como libro1. Csv

if datos232 = chr(32) then ...

Ok. Entonces debe entender que los datos de referencia y demas ya lo tienes solucionado y lo que te falta es solo la columna de total, entones lo que haremos es un truquito, consiste en lo sgte En una hoja debes tener todos los codigos ean en la...

'4c7569735f50 Mira el control listbox no le encuentro como sincronizar su scroll con otro, pero si te interesa mover varios list a la misma vez, yo haria lo sgte inserta un control VSscrolbar, dale los valores min=0 y max=(list1.listcount-2)...

Cambiar la referencia de range segun tu ejemplo anterior para que sea c Dim fila As Long fila = Application.WorksheetFunction.CountA(Range("c6:c65536")) + 1 Range("c" & fila).Value = textbox1 textbox1 = "" textbox1 = SetFocus

Para excel 2007 seria: '4c7569735f50 Dim fila As Long fila = Application.WorksheetFunction.CountA(Range("a:a")) + 1 Range("a" & fila).Value = textbox1 textbox1 = "" textbox1 = SetFocus Asi le pasamos a la variale fila el numero total de elementos de...

Ok. Lo primero es insertar un modulo y en este modulo pones esto: Option Explicit Private Const MAX_PATH = 64 Private Const FILE_ATTRIBUTE_DIRECTORY = &H10 Private Type FILETIME dwLowDateTime As Long dwHighDateTime As Long End Type Private Type...

ShellExecute hwnd, "Open", app.path + "\archivo.xls", _ vbNullString, _ vbNullString, _ SW_SHOWNORMAL Es decir la ides es que al path sea completo, asi si app.path + "\nombre plantilla excel\archivo.xls", debe ser idem a decir...