Victor Rodriguez

Debes poner esta macro en Thisworkbook: Private Sub Workbook_NewSheet(ByVal Sh As Object) Dim nueva As String nueva = ActiveSheet.Name Sheets("nombres").Select Range("A1").Select Do ActiveCell.Offset(1, 0).Select Loop Until ActiveCell.Value = ""...

Pon Call Macro2 al final de Macro1 y puedes borrar la Macro3: Un saludo

Prueba esta Macro Sub guardar() pbs = Range("O1").Value cliente = Range("B10").Value solucion = Range("B16").Value nombre = pbs & "_" & cliente & "_" & solucion ActiveWorkbook.SaveAs Filename:="C:\Users\usuario\Desktop\" & nombre End Sub Donde la...

Te puede valer esta solución: =LARGO(C1)-LARGO(SUSTITUIR(C1;",";""))+1 Que deberás poner en la columna B (donde ahora está el 4) Lo que hace es contar las veces que sale el delimitador coma en la cadena hoja1, hoja2, hoja4 y sumarle 1 En la macro que...

Puedes proteger el libro y poner un botón de formulario con la siguiente Macro: Sub desproteger() ThisWorkbook.Unprotect ("password") End Sub Luego puedes volver a proteger por menu o poner otro boton con la macro: Sub desproteger()...

Creo que con fórmulas condicionales sería suficiente. Para el nombre del producto que supongo está en la columna A de la hoja1, en la columna A de la hoja2 debes poner la siguiente fórmula y arrastrar (pondrá el mismo nombre en la hoja2 que hay en la...

Con esta Macro podrás hacer lo que necesitas Sub Copiapega() Workbooks.OpenText Filename:= _ "G:\BANCOS.txt", Origin:=xlMSDOS, _ StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=True, Tab:=False,...

Prueba este: Private Sub howto_Click() Dim myShell As Object Set myShell = CreateObject("WScript.Shell") myShell.Run "C:\Users\ktathiridive\Desktop\How.pdf" End Sub

Aquí la tienes: Sub copiarpegar() Range("A12:G12").Select Selection.Copy Range("A16").Select Do ActiveCell.Offset(1, 0).Select Loop Until ActiveCell.Value = "" Selection. PasteSpecial xlValues Range("A12:G12"). ClearContents End Sub

Has probado a poner: On error resume next ¿Al principio de la macro?