Victor Coello

Ok en el primero esta bien el primer código Sheets("AUX SALIDA").Select If Range("F1").Value <= 2 Then msgbox("lo que sea") Por que le estas diciendo que entre ala hoja AUX SALIDA Y en la segunda esta mal por que ningún rango se llama AUX SALIDA si...

Ok aras lo siguiente, aras un archivo en excel y le pondrás esta macro luego el archivo lo guardaras dentro la carpeta donde están los archivos, al inicio te pregunta que que tiop de archivo quieres que abra le pondes la terminación del archivo excel...

Este teba a buscar en todo el libro y te dirá en que rango esta checale es todo lo que tengo Sub Macro1() Dim buscar Dim texto As String, titulo As String texto = "Digite el código de producto que desea buscar" titulo = "Búsqueda en todas las hojas...

Si tienes los números primero y luego textos cambialos primero pon las letras y luego los números ese es el problema primero de izquierda a derecha se ponen los números y al final los nombre o viceversa ese es el problema

Esto te ayudara Sub j() MsgBox "Oprime Close Print" ActiveWindow.SelectedSheets.PrintPreview Application.Dialogs(xlDialogPrinterSetup).Show ActiveWindow.SelectedSheets.PrintOut Copies:=1 End Sub

Esto ocupas Sub h() Range("s7:t7").Select Selection.Copy Sheets("Hoja2").Select Range("ED3:EE3").Select ActiveSheet.Paste Sheets("Hoja1").Select Range("s3").Select Selection.Copy Range("ea3").Select ActiveSheet.Paste End Sub

Te recomiendo que separes en diferente módulos, ya que aveces que pones todo en un modulo suelen mandar error, NO por la cantidad de códigos sino por que tienes dos nombre higuales como por ejemplo cuando le pones GOTO Salir Y si tienes dos salir ahí...

If range ("d4")= ("f4") then range ("e7:f8").select selection.copy range ("c7").select activesheet.paste else end if end sub Algo parecido a esto

Dame mas información

Private Sub ComboBox1_Click() ComboBox1. Clear ComboBox1. AddItem "Mensual" ComboBox1. AddItem "Quincenal" ComboBox1. AddItem "10 Días" End Sub Private Sub ComboBox1_Change() If ComboBox1.Value = "Mensual" Then 'el resto de tu rutina End Sub Aver...