Saltar al contenido
View in the app

A better way to browse. Learn more.

Ayuda Excel

A full-screen app on your home screen with push notifications, badges and more.

To install this app on iOS and iPadOS
  1. Tap the Share icon in Safari
  2. Scroll the menu and tap Add to Home Screen.
  3. Tap Add in the top-right corner.
To install this app on Android
  1. Tap the 3-dot menu (⋮) in the top-right corner of the browser.
  2. Tap Add to Home screen or Install app.
  3. Confirm by tapping Install.

Insertar valor de acuerdo a cantidad

publicado

Buenas tardes, el codigo siguiente me inserta un codigo, es decir:

En mi celda G1 tengo un codigo, copio ese codigo y lo pego tantas veces me lo diga mi celda F3 en mi columna F, va leyendo las cantidades que me proporciona mi columna F.

Mi problema es que al principio si me inserta por ejemplo tengo un 3 y me inserta tal cual, en la siguiente tengo un cuatro y no me lo copia, no hace nada y salta al siguiente y tampoco hace nada.

Mi codigo:

'--------------------------------------------------------

' Macro para insertar filas segun cantidad de codigo |

'--------------------------------------------------------

Sub InsertarFilasCantidadsitio()

'Variables para filas a insertar y para cantidad de filas

Dim filas As Integer

Dim var As Integer

' Indica la fila desde donde empieza a trabajar

filas = 3

'Empieza a contar si el valor de la celda es vacio

Do Until Cells(filas, 6) = ""

' Revisa que el valor sea diferente de 0

If Cells(filas, 6) <> 0 Or Cells(filas, 6) <> "" Or Val(Cells(filas, 6)) > 0 Then

'Resta 1 a la cantidad de filas a insertar

var = Cells(filas, 6)

'Ciclo para insertar filas

For m = 1 To var

Range("G1").Copy

Selection.Insert Shift:=xlDown

Range("G3").Select

Range("G3").Value = Range("G1").Value

Application.CutCopyMode = Cut

'Fin de for

Next m

'----

'Fin de condicion

End If

'-----

'Condicion que se ejecuta mientras el valor sea vacio

'fila + valor a insertar + contador

filas = filas + var + 1

Loop

End Sub

Espero me haya explicado, si necesitan el ejemplo del archivo haganmelo saber.

Saludos.

Atte:

@Pseudostark

Twitter: @PseudoStark

Featured Replies

No hay posts para mostrar

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Configure browser push notifications

Chrome (Android)
  1. Tap the lock icon next to the address bar.
  2. Tap Permissions → Notifications.
  3. Adjust your preference.
Chrome (Desktop)
  1. Click the padlock icon in the address bar.
  2. Select Site settings.
  3. Find Notifications and adjust your preference.