jerryeagle

Checa este Código: Sub Buscaduplicados() Dim R, C, U As Long Dim Prod As String Sheets("Hoja1").Select U = Range("A" & Rows.Count).Row For R = 3 To U Prod = Cells(R, 1) With Sheets("Hoja1") Set V = .Cells.Find(Prod, , , xlWhole) If Not V Is Nothing...

Para buscar y "manejar" el error si no encuentra la palabra: Dim R, C as Long Set V = Cells.Find("Palabra") If not V is Nothing Then R = V.Row C = V.Column Else MsgBox "No encontrado" : Exit Sub End If

No encontré un método para saber la ubicación de la Ultima Celda Anterior Seleccionada, por un momento pensé que con Activecell. Previous pero solo selecciona la Celda inmediata anterior, es decir si ka celda activa es B:7 con Activecell. Previous...

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"

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