Elsa Matilde

En primer lugar comentarte que ante un error en una macro debes indicarnos en qué línea se produce (presionando el botón Depurar te llevará al Editor y allí se marca de amarillo la línea del error). Eso facilita detectar el problema. En mis pruebas...

No indicas si la 2da macro también necesitas ejecutarla al doble clic en alguna celda, pero si es en la D1 sería algo así: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Address = "$C$1" Then Call...

Lo que necesitas utilizar son InputBox (no Msgbox). Por ej, en el momento en que necesites un dato sería: dato = InputBox("Ingresa información") If dato <> "" Then 'aquí realizaría lo que necesitas si se ingresó algún dato Else 'aquí se ejecutará lo...

Este método es apropiado además de que no necesita fórmulas: Selecciona la col C. Desde menú Datos, Texto en Columnas, opción 'Delimitados', en ventana siguientes deja tildada la opción Tabulación y Espacio, y en ventana sgte la celda destino $C$1...

Adjunto macro con arreglo. No dejaste instrucciones acerca de qué hacer en caso se que ya exista, además de mostrar el mensaje. Por lo tanto acomoda las instrucciones a continuación según corresponda: Private Sub CommandButton1_Click() 'con arreglo...

Hay varios detalles a considerar ... mejor te envío un ejemplo. Podés enviarme un correo (aparece en mi sitio que dejo al pie) o dejarme el tuyo aquí para que te lo envíe.

Agregá esta línea para que lo cierre guardando los cambios. ActiveWorkbook.Close True

Entrá al Editor de macros, insertá un módulo y allí copiá esto. Solo tenés que ajustar la fila de inicio que estoy considerando como fila 2. Sub insertaCeldas() 'x Elsamatilde 'recorre col B partir de fila 2 (ajustar) Range("B2").Select 'guardo la...

Las celdas en Excel están de modo predeterminado, bloqueadas. Es decir que si proteges la hoja ya no se podrán modificar ni ingresar datos en ella. Si necesitas dejar celdas liberadas para el ingreso de datos, seleccionalas y desde menú Formato,...

El orden de las instrucciones sería este: On Error goto yaesta MkDir ("d:\" & Hoja1.[a2]) On Error goto 0 Worksheets(2).Copy ActiveWorkbook.SaveAs "d:\" & Hoja1.[a2] & "\" & ActiveSheet.Name ActiveWorkbook.Close Worksheets(3).Copy...