Dante Amor

Prueba así: Sub CopiarCeldas_VIDEO_C() With Worksheets("Registro VIDEO C.") .Range("B" & Rows.Count).End(3)(2).Resize(1, 4).Value = Application.Transpose(Range("C6:C9").Value) .Select End With End Sub

Con todo gusto, te anexo una breve explicación: 'PROCESO 'recorre cada uno de los elementos del arreglo 'a' For i = 1 To UBound(a, 1) 'almacena en un diccionario. Pone como llave el ID 'y "dentro" de la llave almacena el item, el item está formado...

¿Cuál es tu idea, registrar en una, después registrar en la segunda hoja, después registrar en la tercera hoja? ¿O quieres pasar como parámetro el nombre de la hoja y que haga el registro en la hoja que pasaste como parámetro?

Ho la y bienvenido a TodoExpertos. Ese error es porque deberías tener una hoja con el nombre "F3". Si el nombre de la hoja se encuentra dentro de la celda "F3", entonces debería ser: Set ws = ThisWorkbook.Sheets(Range("F3").Value) Nota: Procura...

Realiza lo siguiente: 1. Selecciona las celdas que quieras imprimir. 2. En el menú Diseño de página selecciona Área de impresión. 3. Selecciona la opción "Establecer área de impresión. Si quieres cambiar el área, repite los pasos Si quieres borrar el...

Puedes poner el código utilizando el icono para insertar código:

Revisa la siguiente: ¿Qué fórmula aplico para convertir números a letras en excel?

Revisa si lo siguiente es lo que necesitas: Sub CREAR_INFORME() Dim objWord As Word.Application, wdDoc As Word.Document Dim nom As String, nomarch As String, ruta As String Dim nomfic As String, rutainf As String, ts As String Dim x As Long, can As...

Supongo que tienes algo como esto: While ActiveCell.Value <> "" And ActiveCell.Value <> "GASTOS:" ' 'realice los procesos correspondientes ' ActiveCell.Offset(1).Select Wend

Supongo que los datos en la columna B son únicos, es decir, en la misma columna B no hay datos repetidos. Según tus ejemplos y tu macro. Los datos de la lista 1 empiezan en la celda B4. Los datos de la lista 2 empiezan en la celda E4. Y los...