jerryeagle

Tendrías que desproteger la hoja al abrir el archivo, hacer tu rutina y volver a protegerla: Al abrir ThisWorkbook. UnProtect "Tu Contraseña" Después de tu rutina ThisWorkbook. Protect "Tu Contraseña"

¿Y no intentaste hacer más amplia la Columna?

Hay muchos sitios con tutoriales gratuitos de SQL, solo "googlea" un poco, yo he aprendido mucho así... Pero de todos modos respondo tu pregunta: Puedes "anidar" varias condiciones con WHERE usando OR o AND así: rs.Open "SELECT * FROM CatalogodeCobro...

Sub CopiaPega() If Range("A4") = "" Then Range("A4") = Range("A2") End Sub

Pues si te pones a hacerlo manualmente ya, puede que si alcances antes del 25 :P... no te creas, en el Editor de VBA (ALT + F11), menu insertar, Modulo, ahí pon esto: Sub AgregaCaracter() Dim iColumna as String, Ini, U as Long iColumna = "A" Ini = 4...

Si quieres hacerlo con Funciones predeterminadas de Excel, seria con BUSCARV, estos son sus parámetros y como funcionan: =BUSCARV(Dato_Buscado, Rango_donde_Buscar, Columnas, Verdadero/Falso) Dato_Buscado = Obviamente seria el Numero Cliente...

Checa este Código: Dim mM, dD, aA, Libro As String mM = Month(Date) mM = Format(mM, "00") dD = Day(Date) aA = Year(Date) Libro = "MiTemplate " & dD & "-" & mM & "-" & aA ActiveWorkbook.SaveAs Filename:= _ "Tu Ruta" & Libro , FileFormat _ :=xlExcel8,...

CommandButton1_KeyPress Este evento KeyPress es cuando el CommandButton tiene el "foco", lo que puedes hacer es en propiedades del botón, en el campo Acelerator, escribe la letra con la que quieres "apretar" el botón y la secuencia sera Alt + la...

Usa esta inea cuando quieras cerrar el libro ThisWorkBook.Close False

Checa este método que es más rapido y sencillo Private Sub Workbook_Open() Dim Fin As Integer Fin = Range("A" & Rows.Count).End(xlUp).Row With Sheets("Hoja1").OLEObjects("ComboBox1").Object .Clear .List = Range("A3:A" & Fin).Value End With...