Luis_P

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

Te dejo un ejemplo que "exporta" el rango seleccionado a un txt Lo puedes adaptar: Public Sub exporta_txt() ' exporta rango selecionado a archivo txt Dim obj_FSO As Object Dim Archivo As Object Dim rango As Range Dim r As Range Dim Nombre As String...

if datos232 = chr(32) then ...

Según microsoft: Informar mediante sonidos Reproduce los sonidos disponibles que están asociados a los eventos de los programas de Microsoft Office, como abrir, guardar e imprimir archivos, o mostrar mensajes de error. Los sonidos asignados a los...

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...

¿Es decir insertar 7 fila vacias bajo cada fila llena de aquellas 800?

'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

Desde el editor de vbasic (alt+f11), inserta un modulo (NO modulo de clase, solo un modulo), alli pegas esto: Sub abrir() Dim midir As String ChDir "c:\" midir = InputBox("Path de archivos", "Abrir Libros", "c:\prueba\") If Len(Trim(midir)) = 0 Then...

Y asi: Sub Fecha_en_columnas_AMD() '4c7569735f50 On Error Resume Next Selection.TextToColumns , DataType:=xlDelimited, FieldInfo:=Array(1, 5) End Sub