hücre boş ise atla diğerine geç komutu nedir acaba

[blazer2004]

For k = 8 To 10000
If Cells(5, k) = "" Then Exit For
Urun(k - 7) = Cells(5, k)
Sarf(k - 7) = Cells(6, k)
Kullanilan(k - 7) = Cells(7, k)
Hafta(k - 7) = Cells(3, 2)
Sayac = k - 7
Next

arkadaşlar hücre boş ise atla diğerine geç demem için "then exit" yerine hangi komutu yazabilirim acaba.iyi çalışmalar

 

[ozgretmen]

Kodalarınızdan bir şey anlamadım ki...Dosyanızı ekler misiniz ?

 

[blazer2004]

sayın Ozgretmen benim istediğim 'If Cells(5, k) = "" Then Exit' bu komut aralığı burda eğer istenilen satır ve sütun boş ise çıkış yap diyor.ben çıkış değilde esgeç devam et dedirtmek istiyorum bu mümkünmü acaba.Exit yerine hangi komut kullanmalıyım.şimdiden teşekkürler

 

[Necdet]

Merhaba,

Bende tam olarak ne yapılmak istendiğini anlamadım ama sanırım aşağıdaki kod gibi birşey istiyorsunuz.

For k = 8 To 10000
    If Cells(5, k) <> "" Then
        Urun(k - 7) = Cells(5, k)
        Sarf(k - 7) = Cells(6, k)
        Kullanilan(k - 7) = Cells(7, k)
        Hafta(k - 7) = Cells(3, 2)
        Sayac = k - 7
    End If
Next

 

[blazer2004]

sayın Nejdet yeşertener yapmak istediğim makroyu gönderiyorum.burda iki excel dosyası arasında sütun başlıklarına bağlı olarak diğer excel dosyasındaki sheetlere yazdırıyorum.burda sütun başlıklarından birinde veri yoksa diğer sütun başlıklarındaki verileri sheet'lere aktarmıyor.sizde bir bakarmısınız teşekkürler.

 

[blazer2004]

arkadaşlar yardım edermisiniz.Bir türlü işin içinden çıkamadım lütfen.