Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Algo más

04/02/2004 - 14:18 por Osejol | Informe spam
Ayuda Hacer una pregunta
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
email Siga el debateRespuesta 1 respuestaRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

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

Preguntas similares

 

Busqueda sugerida :