Soru Değişken şeklindeki bir hücre dolu ise kopyalama işlemini yapmak

[seckinb]

Merhaba

500 dosyayı oluşturup büyük tablodan tekli dosyalara veri aktarıyorum.

AD & i (yani AD2 - 500) arasında 120 tane hücrede tarih yazıyor. Buradaki veri boş değil ise kopyalamak istiyorum. Kopyaladıktan sonra başka hücrelerde de değişiklikler yapacağım.

if --end if ile bunu nasıl planlayabilirim?

Dim i as byte
ADC = "ad" & i

if ADC eşit değil blank?

 

[YUSUF44]

Aşağıdaki düzende yapabilirsiniz:

For i = 2 to 500
    If Cells(i,"AD")<>"" then
        Cells(i,"AD").Copy
        ....
        ....
    End if
Next