“dikkat belgenizin bazı bölümleri belge denetçisi tarafından bilgiler içeriyor olabilir” hatasını şuradan düzeltebilirsiniz.
“compile error invalid use of property ” hatası “=” işaretini unutunca geliyor.
Makro öğrenmek için şu seriyi takip ediyorum.
Lazım olacak kodlar
(ders2) Rows(“4:4”).Delete Shift: =xlUp
(ders3) “” boş hücre if,else if ,else kalıbı
If Worksheets(“sayfa2”).Range(“c3”).Value = “” Then
MsgBox (“PLEASE SAYI GİR”)
ElseIf Worksheets(“sayfa2”).Range(“c3”).Value < 18 Then
Worksheets(“sayfa2”).Range(“c4”).Interior.Color = RGB(127, 187, 199)
ElseIf Worksheets(“sayfa2”).Range(“c3”).Value < 25 Then
Worksheets(“sayfa2”).Range(“c4”).Interior.Color = RGB(200, 87, 109)
Else
Worksheets(“sayfa2”).Range(“c4”).Interior.Color = RGB(1, 17, 229)
End If
Eğer gerçekleşebilecek ihtimallerin sayısı 2’den fazla ise else if kullanarak her durum için yapılacak işlemleri belirtebiliriz.
İf komutundan sonra ilk şartımız yazılarak işe başlanır. Diğer şartlar içinse else if kullanılır.
Şartlardan hiçbirinin gerçekleşmemesi durumunda yapılmasını istediğimiz kodları ise else kısmına yazarız. Else kısmı yine isteğe bağlıdır.
http://www.btdersleri.com/ders/If-Else-Kullan%C4%B1m%C4%B1-ve-%C3%96rnekleri
Eğer gerçekleşebilecek ihtimallerin sayısı 2’den fazla ise else if kullanarak her durum için yapılacak işlemleri belirtebiliriz.
İf komutundan sonra ilk şartımız yazılarak işe başlanır. Diğer şartlar içinse else if kullanılır.
Şartlardan hiçbirinin gerçekleşmemesi durumunda yapılmasını istediğimiz kodları ise else kısmına yazarız. Else kısmı yine isteğe bağlıdır.
(ders4)
Sub ders4()
boy = Worksheets(“sayfa3”).Range(“c5”).Value
kilo = Worksheets(“sayfa3”).Range(“c6”).Value
If boy <> “” And kilo <> “” Then
VKİ = kilo / ((boy / 100) * (boy / 100))
If VKİ < 18 Then
Worksheets(“sayfa3”).Range(“c7”).Interior.Color = RGB(127, 187, 199)
ElseIf VKİ < 25 Then
Worksheets(“sayfa3”).Range(“c7”).Interior.Color = RGB(200, 87, 109)
Else
Worksheets(“sayfa3”).Range(“c7”).Interior.Color = RGB(1, 17, 229)
End If
Else
MsgBox (“PLEASE SAYI GİR”)
‘iki tane if olduğu için iki tane end if var
‘iki tane if olduğu için iki tane else var
End If
(ders5)
Sub ders5() FOR DÖNGÜSÜ
toplam = 0
sayi = 0
k = Worksheets(“Sayfa4”).Cells(Rows.Count, “C”).End(xlUp).Row
For a = 2 To k
If IsNumeric(Worksheets(“Sayfa4”).Range(“C” & a).Value) Then
toplam = toplam + Worksheets(“Sayfa4”).Range(“C” & a).Value
sayi = sayi + 1
End If
Next a
ortalama = toplam / sayi
Worksheets(“Sayfa4”).Range(“E3”).Value = ortalama
End Sub
***
a = 7
Range(“F” & a).Insert Shift:=xlDown çalıştı xlUp olmadı (range için,rows da oldu)
dogankent 