Elsa Matilde

Para escribir el código que solicitas necesitamos algo más de información: - El detalle de las col de Hoja1 o una imagen. - Además si los datos se copian a Hoja2 en el orden en que se van sucediendo. -Cuando realizar esta tarea. Podría ser al abrir...

Para automatizar un proceso lo primero que hay que tratar es de contar con un mínimo de reglas... sino buscar la posibilidad de diseñar un formato de entrada. Deja algunos otros modelos de formato para tratar de encontrar un patrón y luego podría...

Es mucho más sencilla de lo que imaginas, si lo comprendí correctamente: Sub Calcula_dummies() 'x Elsamatilde i = 1 'si i solo es 1 no necesita el bucle k = 1 For j = 41 To 45 Cells(i, j).Value = "Listening_" & k k = k + 1 Next j End Sub

H1 es la hoja origen y h2 la de destino. 'i' Es solo una celda y 'u' un fila de destino... por lo tanto faltan datos para enviarte la instrucción precisa. Por ej: Si necesitas copiar una 'columna' consideremos que empieza en fila 2 y termina en fila...

Te adjunto la macro. Ajusta la ruta de tus carpetas. Private Sub CommandButton1_Click() 'x Elsamatilde 'se definen las carpetas de origen y destino origen = "D:\carpetas Datos\Downloads\" destino = "D:\carpetas Datos\Downloads\TRABAJO\" 'se recorre...

En mi caso utilizo esta sintaxis para cuando se trata de decimales, reemplazando la coma por punto: ActiveSheet.Range("$A$8:$BZ$5226").AutoFilter Field:=30, Criteria1:=">" & "0.35", _ Operator:=xlAnd La otra puede quedar como está. Pruébala y...

Entrá al Editor, seleccioná con doble clic el objeto HOJA donde vayas a trabajar y allí copiá esta macro. Debes ajustar los límites como te lo indico en el código. Private Sub Worksheet_Change(ByVal Target As Range) 'x Elsamatilde 'solo controla...

Si agregaras los datos al final sería fácil de determinar el fin de rango... pero como estás insertando una fila para colocar los datos al inicio, no debes insertar nuevamente la fila desde el 2do formulario. Esto claro está siempre y cuando el orden...

Con el Exit Do solo estás saliendo del bucle Do pero luego sigue ejecutándose el resto del código. Debieras colocar a continuación un Exit sub o luego del Loop esta línea: If idBusca = Empty then exit sub Probala y comentame si resolvió tu problema.

Aquí te dejo otra opción de búsqueda: Private Sub ComboBox2_Click() Dim ApNom As String 'Dim idBusca As String 'Dim fila As Integer Dim busco Application.ScreenUpdating = False Sheets("DATOS").Select ApNom = ComboBox2 Set busco =...