EMILIO FEDEZ
New member
- Registrado
- 6 Ago 2005
- Mensajes
- 25
Sub LlevarNoHoja1()
Dim i, j As Long
i = 5
j = 4
Do While Not IsEmpty(Cells(i, "F"))
If Sheets(2).Cells(i, "F").Value = 0 Then
j = j + 1
Sheets(3).Cells(j, "B").Value = Sheets(2).Cells(i...
Dim i, j As Long
i = 5
j = 4
Do While Not IsEmpty(Cells(i, "F"))
If Sheets(2).Cells(i, "F").Value = 0 Then
j = j + 1
Sheets(3).Cells(j, "B").Value = Sheets(2).Cells(i...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí