Adriel Ortiz Mangia

h o l a: Te anexo la macro Sub copiar() 'Por.DAM Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") Set h3 = Sheets("Hoja3") Set h4 = Sheets("Hoja4") A = "Manualidades" B = "Baile" C = "Teatro" j = 2 For i = 2 To h1.Range("D" &...

H o l a: Entendí que para validar es la hoja "Base de datos", pero en que fila empieza tus datos, cual columna es para validar.

Dante lo logré If Listreport.ListIndex = -1 Then MsgBox "Seleccione un alumno(a)", vbInformation, "IESPP MEO" Exit Sub End If Set h8 = Sheets("Pagosxciclo") Set h9 = Sheets("temp") h9.Range("A11:F30").ClearContents k = 11 DNI =...

H o l a: Usa la función concatenar

Usa la función & o la función concatenar Ej. Col A / Col B en la Col C escribe = A1&B1 Col A / Col B en la Col C escribe = Concatenar(A1,B1)

H o l a: Ta paso la rutina actualizada items = Hoja12.Range("A" & Rows.Count).End(xlUp).Row For i = 3 To items If LCase(Hoja12.Cells(i, 1).Value) Like "*" & LCase(Me.ComboBox1.Value) & "*" Then Me.ListBox1.AddItem Hoja12.Cells(i, 2)...

H o l a: Private Sub Worksheet_Change(ByVal Target As Range) 'Muestra MSGBOX If Not Intersect(Target, Range("C:C")) Is Nothing Then If MsgBox("Desea realizar cambios", vbYesNo) = vbYes Then Range("J" & Target.Row).Value = Date End If End If End Sub

H o l a: Te facilito la macro Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("C:C")) Is Nothing Then Range("J" & Target.Row).Value = Date End If End Sub Valora para finalizar saludos!

H o l a para que ingrese en formato fecha usa Cdate Sheets("Hoja1").range("A") = cdate(Txtfecha)

H o l a: Esto te va servir Codigo VBA para un Listbox con mas de 10 columnas Copiar filas filtradas a otra hoja, con más de 13 columnas.