Adriel Ortiz Mangia

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 en ejecutar: digita MSCONFIG y mostrará la siguiente ventana. Busca la palabra: TASKBAR.CPP y desactiva el check. Luego aplica y acepta y reinicia tu equipo. Me comentas saludos!

H o l a: Usa el programa RUFUS, muy efectivo para crear booteables con tu pendrive http://rufus.akeo.ie/?locale=es Para que te orientes mejor revisa en youtube https://www.youtube.com/watch?v=BVd3HAtY14A Me comentas y valoras para finalizar saludos!

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.

H o l a Usa la función SUSTITUIR Me comentas y valoras