error,loop sin do

[acecasma]

No se donde esta el fallo.
dim i as long
Worksheets("Saneamiento").Select
i = 2
Do
Cells(i, 0).Select
If ActiveCell.Value = Worksheets("Hoja1").[H6].Value Then
[AW,i].Copy...

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í

 

[Adrian]

Hola!
Cells(i,0) por Cells(i,1) el segundo argumento, el indicador de columnas va de 1 a 256.
Probá eso primero.

 

[acecasma]

me sigue dando loop sin do. No se cual es el problema.Una ayudita por favor

 

[Adrian]

Perdón vi eso y nada más, esto lo saqué de la ayuda:

Do
[instrucciones]
[Exit Do]
[instrucciones]

Loop [{While | Until} condición]


Es decir tu código debe parecer:
Do
instrucciones
Loop While...

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í

 

[KL]

No se donde esta el fallo.
dim i as long
Worksheets("Saneamiento").Select
i = 2
Do
Cells(i, 0).Select
If ActiveCell.Value = Worksheets("Hoja1").[H6].Value Then...

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í

 

[acecasma]

¿Tantos fallos tengo?.Adjunto el archivo y te explico.En el userform1 al dar el boton aceptar, quiero que la fecha que se crea en la hoja1,H6, la tome como modelo para que en la hoja saneamiento...

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í

 

[KL]

tal vez algo asi te funcione:

Sub test()
    Dim i As Long
    Application.ScreenUpdating = False
    With Sheets("Saneamiento")
        For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row...

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í

 

[KL]

creo que el siguiente codigo seria aun mas eficiente:

Sub Test2()
    Dim rng As Range
    With Sheets("Saneamiento")
        Sheets("Hoja1").Range("H5") = .Cells(1, 1)
        Set rng =...

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í

 

[acecasma]

Gracias por molestarte.Pero no me sale.La verdad que no me da error ninguno, pero tampoco me pasa ningun dato a la hoja 1.No se si es por los formatos de fecha, o que es lo que pasa.Si fuese un...

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í

 

[acecasma]

Por fin lo he conseguido.Seria algun problema de algun punto de mas.Gracias por echarme una mano. Seguire con mi miniproyecto.Cuando me surja alguna otra duda seguire preguntando.
Muchas gracias.