IF hatası

[ozuberk]

Merhaba,

Ekteki dosyada hazırlamış olduğum makrodaki formül hatalı çalışıyor. Ben çözemedim yardımcı olursanız sevinirim.

 

[Muhammet Okumuş]

A sütununda değer olmadığı için sat=0 değerini alıyor.

 

[mancubus]

anladığım kadarı ile verilerin sadece bir kısmı ekteki dosyada var.

tüm verilerin olduğu sayfada çalıştırmayı denemek lazım. veya gerçek dosya bu ise sat değişkenini veri olan bir sütuna göre, örneğin D, tanımlamak lazım.

sat = Sheets("Veri Girişi").Cells(Rows.Count, "D").End(xlUp).Row

fakat döngü nedeniyle $W3 tüm satırlarda sabit kalacaktır ve hata verecektir.

ben formüllü çözüm istersem aşağıdaki gibi yapardım.

formül için:

Sub Formul()

Dim SonSat As Long

With Worksheets("Veri Girişi")
    SonSat = .Cells(Rows.Count, "D").End(xlUp).Row
    .Range("X3:X" & SonSat) = "=IF($W3=""Tümü Kabul"",IF($F3<>0,1,""""),"""")"
End With

End Sub

 

[ExcelF1]

Sub Formul()
Dim sat As Long, i As Long
sat = Sheets("Veri Girişi").Cells(102, "A").End(xlUp).Row
For i = 3 To sat
    Sheets("Veri Girişi").Cells(i, "X").Formula = "=IF($W3=""Tümü Kabul"",IF($F3<>0,1,""""),"""")"
Next i
End Sub

Eğer orjinal dosyanızda eklemiş olduğunuz bu dosya gibi ise hata almanız normaldir.

sat = Sheets("Veri Girişi").Cells(102, "A").End(xlUp).Row

Bu komut satırı ile, A102 hücresinden yukarıya doğru, en son dolu hücreye zıpla ve seçilen satırın bulunduğu satır numarasını "sat" değişkenine ata diyorsunuz.
İşte bu noktada, A sütununda herhangi bir veri bulunmadığından, zıplama A1 hücresine gerçekleşecek ve "sat" değişkeninin alacağı değer 1 olacaktır.

Akabinde; For i = 3 to sat

ifadesinde, 3'den 1'e kadar yap diyorsunuz ki, 3'ten bire doğru ifadesi hataya neden olmaktadır.

 

[ozuberk]

Teşekkür ederim elinize sağlık