Adriel Ortiz Mangia

H o l a Ta paso la macro Private Sub CommandButton1_Click() 'Fuente Elsa 'Act. Adriel Set h1 = Sheets("Hoja3") Set b = h1.Range("A:A").Find(ComboBox1, lookat:=xlWhole) If b Is Nothing Then MsgBox "No se encuentra" Exit Sub End If Range("A" &...

H o l a Haz clic derecho sobre la celda B3, y clic en formato de celdas y en la pestaña PROTEGER desactiva BLOQUEADA. Y no tendrás problemas cuando protejas la hoja Puntuar para finalizar la pregunta.

H o l a Pon el código en el Private Sub Workbook_BeforeClose(Cancel As Boolean), entonces cada vez que cierras el libro te validará tus datos. Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim Contador As Integer Contador = 0 Range("A1").Select...

H o l a Te paso la macro asumiendo que tus encabezados está en la fila 1 Sub buscar_copiar() Set h1 = Sheets("archivo_base") Set h2 = Sheets("resumen") buscar = "logística" Set b = h1.Rows(1).Find(buscar, lookat:=xlWhole) If Not b Is Nothing Then For...

H o l a Puedes mostrar una imagen de la hoja de registros para ver cual columna validar.

Para guardar el libro ponlo después del código de imprimir Application.DisplayAlerts = False ThisWorkbook. Save

H o l a agrega 100 en esta linea del código Label96.Caption = Str(Suma)/100

H o l a Te paso la macro Sub Mostrarvencidos() 'Fuente http://www.todoexpertos.com/preguntas/7aq6lgjgmooyxcdy/macro-busca-dato-en-columna-muestra-resultados Set h1 = Sheets("Hoja2") n = 0 For i = 3 To h1.Range("B" & Rows.Count).End(xlUp).Row If...

H o l a NO entendí si la validación es con sql, pero si validas los datos con excel te paso la macro, sustituye el nombre de la hoja y la columna donde tienes los usuarios Private Sub CommandButton1_Click() Set h1 = Sheets("Hoja1") Set b =...

H o l a Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B10:B1002")) Is Nothing Then If Target.Count > 1 Then Exit Sub If Target.Row > 1 Then Select Case UCase(Target.Value) Case Is > 1 Range(Cells(Target.Row,...