Macro permita saltar a otra columna según condición

Quiero generar una macro que cuando la celda c28 sea igual a cero salte a la siguiente columna y copie los datos en esta nueva columna y así sucesivamente, no entiendo mucho de VB y lo poco que he hecho es gracias a las respuesta del foro, me pueden ayudar, gracias por la ayuda que puedan darme
Les envío la macro que he hecho, pero tengo problemas al momento de ejecutarla no funciona bien.
Muchas Gracias por la ayuda que puedan darme
 If ActiveSheet.Range("H28").Value > "0" Then
       ActiveSheet.Range("B7:C9").Select
       Selection.Copy
       Range("F30").Select
       Selection.End(xlUp).Select
       ActiveCell.Offset(1, 0).Select
       Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
       :=False, Transpose:=False
       Application.CutCopyMode = False
    Else:  ActiveSheet.Range("B7:C9").Select
           Selection.Copy
           Range("J30").Select
           Selection.End(xlUp).Select
           ActiveCell.Offset(1, 0).Select
           Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
           :=False, Transpose:=False
           Application.CutCopyMode = False
           If ActiveSheet.Range("L28").Value > "0" Then
                ActiveSheet.Range("B7:C9").Select
                Selection.Copy
                Range("J30").Select
                Selection.End(xlUp).Select
                ActiveCell.Offset(1, 0).Select
                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
                Application.CutCopyMode = False
           Else:  ActiveSheet.Range("B7:C9").Select
                    Selection.Copy
                    Range("N30").Select
                    Selection.End(xlUp).Select
                    ActiveCell.Offset(1, 0).Select
                    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                    :=False, Transpose:=False
                    Application.CutCopyMode = False
    End If
    End If
End Sub

1 respuesta

Respuesta
1
No acabo de entender del todo lo que quieres hacer, me imagino que es así, si no, coméntamelo o mandame el libro a [email protected] con una pequeña explicación o ejemplo.
If ActiveSheet.Range("H28").Value > 0 Then
       ActiveSheet.Range("B7:C9").Select
       Selection.Copy
       Range("F30").Select
       Selection.End(xlUp).Select
       ActiveCell.Offset(1, 0).Select
       Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
       :=False, Transpose:=False
       Application.CutCopyMode = False
Else
           ActiveSheet.Range("B7:C9").Select
           Selection.Copy
           Range("J30").Select
           Selection.End(xlUp).Select
           ActiveCell.Offset(1, 0).Select
           Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
           :=False, Transpose:=False
           Application.CutCopyMode = False
Endif
           If ActiveSheet.Range("L28").Value > 0 Then
                ActiveSheet.Range("B7:C9").Select
                Selection.Copy
                Range("J30").Select
                Selection.End(xlUp).Select
                ActiveCell.Offset(1, 0).Select
                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
                Application.CutCopyMode = False
Else
                    ActiveSheet.Range("B7:C9").Select
                    Selection.Copy
                    Range("N30").Select
                    Selection.End(xlUp).Select
                    ActiveCell.Offset(1, 0).Select
                    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                    :=False, Transpose:=False
                    Application.CutCopyMode = False
 End If
Hola Elda, te envíe el archivo al mail que me indicaste, con las explicaciones del caso, espero que puedas ayudarme y que lo explicado sea suficientemente claro, en caso no lo entiendas me dices por favor para poderte explicar lo mejor posible
Te agradezco tu ayuda de antemano
amy3376
Muchas Gracias Elda por la ayuda, muy bueno el arreglo que le hiciste, te doy las gracias por la ayuda. Me parece muy bueno el aporte que dan Uds, a las personas como yo que recién comenzamos en este mundo de las macros y estamos un poco perdidos
Gracias

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Activar / Desactivar Botón en Excel con condición

Estoy trabajando con un Botón dentro de la "Hoja1" que al oprimirse ejecuta una macro y que sólo deberá estar activado cuando el contenido de una celda concreta (B2:C2) no esté en blanco o con valor 0. ¿Cómo puedo hacerlo?
1 respuesta

Macro copiar y pegar valores en columna filtrada

Necesito una macro que una vez filtrada una columna me copie una celda y pegue los valores en la misma, baje otra celda y haga lo mismo y así consecutivamente hasta el final. He grabado una macro con el grabador para que se den una idea. Sub Macro1()...
1 respuesta

Borrar Fórmula sin borrar datos

Quiero que una fórmula de excel se ejecute y cuando se halle el resultado se borre la fórmula y me quede unicamente el resultado en la celda, de tal forma que la próxima vez que abra el libro no se cambie el dato anterior.
1 respuesta

Ejecutar una macro dependiendo de otra macro?

Tengo una pequeña duda... Tengo dos botones con macros uno de ellos dice IMPRIMIR y otro dice REPARTO.. Lo que quiero es que no se pueda ejecutar el botón REPARTO si no se ha impreso nada osea si no le han dado clic al botón IMPRIMIR... En el botón...
2 respuestas

Macro para ordenar un rango variable

Tengo esto dela grabadora Sub Macro10() ' ' Macro10 Macro ' ' Acceso directo: Ctrl+Mayus+L ' Rows("9").Select Range(Selection, Selection.End(xlDown)).Select ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort.SortFields.Clear...
1 respuesta

¿Cómo puedo cambiar celdas a formato de numero, por formato de celdas no me permite?

Solicito de su valiosa ayuda ya que no he podido crear una macro para Excel 2003 que me convierta un rango de celdas a numero, lo he intentado por formato de celdas y no pasa nada, la única forma es realizar el cambio manualmente para lo cual tengo...
1 respuesta

Actualizar un registro de una tabla con macros.

Soy muy asiduo a esta web, es muy interesante y útil, me incribi para preguntar por primera vez y ojala la respuesta sea pronta. Mi problema es.. Tengo una hoja (INGRESO) la cual ingresa productos a una tabla que esta en otra hoja (INV-08) y el...
1 respuesta

Macro Excel filtrar copiar y pegar

Me gustaría pudiera facilitarme una macro que filtre en la hoja1 celda C3, el texto de la celda F6 de la hoja 2, que copie las filas que contengan ese valor y las pegue en la hoja 2 desde la fila 12.
1 respuesta

Macro buscar-pegar

Me ha surgido un problema con una hoja de exel de registro de operaciones que estoy montando, me veo en la necesidad de ingresar datos de una hoja de calculo a otra y creo que la mejor opción es empleando una macro pero mi problema es que no se como...
1 respuesta