Algo más

04/02/2004 - 14:18 por Osejol | Informe spam

Dado el siguiente código

Sub auxiliar()
Do
Application.ScreenUpdating = False
Sheets("AUXILIAR").Select
Range("C3").Select
Selection.Copy
Range("A65536").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
Sheets("PRINCIPAL").Select
Loop While Range("B1").Value > 0
End Sub

¿Cómo puedo hacer para que únicamente copie la celda C3 cuando ésta celda NO
esté vacía?

En dicha celda C3 tengo la fórmula =SI(D3=1;'AUXILIAR2'!A11;"")

Gracias

Osejol

Siga el debate

1 respuesta

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Osejol

04/02/2004 - 14:53 | Informe spam

Me contesto yo mismo, he encontrado una solución:

Sub auxiliar()
Application.ScreenUpdating = False
Do
Sheets("AUXILIAR").Select
If Range("D3").Value = 1 Then
Range("C3").Select
Selection.Copy
Range("A65536").Select
Selection.End(xlUp).Select
ActiveCell.Offset(0, 0).Range("A2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
Else
Calculate
End If
Sheets("PRINCIPAL").Select
Loop While Range("B1").Value > 0
End Sub

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida