san lo

puedes usar querys en la propia Excel ejemplo select nombre,ciudad,cp,.. from [nombrehoja] y la cláusula WHERE para crear filtros. Previo deberás crear una conexión al libro es fácil y hay mucha info en internet

Dante Cómo puedo implementarlo en último código.

Private Sub Text1_LostFocus(Index As Integer) Select Case Index Case 1 'Set RS = New Recordset ArrayFestivos "ORG_FESTIVOS", Text1(0), " WHERE TRANSFERIBLE=-1" Grid.Clear fechainicial = "01/" & Text1(1) & "/" & Text1(0) numdias =...

Sub OrdenarHojas() For i = 1 To Application.Sheets.Count For j = 1 To Application.Sheets.Count - 1 If UCase$(Application.Sheets(j).Name) > UCase$(Application.Sheets(j + 1).Name) Then Sheets(j).Move after:=Sheets(j + 1) End If Next Next End Sub

Te paso un enlace: Pasar elementos de un listbox a otro, aunque si prefieres mejor espera la respuesta de Dante seguro es más completa y te ayudara mejor.

Prueba así: mensaje = MsgBox("Ud desea realizar un nuevo registro con los mismo datos actuales?", vbYesNo + vbExclamation, strTitulo) If mensaje = vbNo Then Exit Sub else h1.Unprotect Password:="0976342842" H1. Range("F5:F7"). ClearContents H1....

Y me sitúe en esa hoja encontrada

Googleando he encontrado esta función, pero no me funciona: Function AgregarItems(Cmb As ComboBox, Hoja As String, Cond As String, ColCond As Integer, ColDato As Integer) Dim collec As New Collection Sheets(Hoja).Activate Range("A2").Activate On...

Sub resumido() Range("BT11").Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Selection.copy Range("c1").Select Selection.EntireColumn.Select Selection.Find(What:="Sell out", After:=ActiveCell,...

Dos rangos: Range("G81:U111"). ClearContents . Range("Z81:AK111"). ClearContents