Excel dikkat belgenizin bazı bölümleri belge denetçisi tarafından kaldırılamayan

“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)

Yayımlanmış 6 Nisan 20194 Ekim 2019