• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Makro Sonucu Hatalı Döndürüyor

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
R

ramazankaya89

Yeni Üye
Katılım
8 Haz 2024
Mesajlar
63
Aldığı beğeni
10
Excel V
Office 2019 TR
Konu Sahibi
Herkese Selamlar

asagıdaki kodumda kalın alan sonucu hatalı geliyor nerde hata yapıyor olabilirim


For i = 2 To Son_Satır

Soldan = Left(Sayfa1.Cells(i, 3), 5)

If Sayfa1.Cells(i, 4) = Sayfa1.Cells(i, 9) Then Sayfa1.Cells(i, 10) = "Doğru"

If Sayfa1.Cells(i, 4) <> Sayfa1.Cells(i, 9) Then Sayfa1.Cells(i, 10) = "Yanlış"

If Sayfa1.Cells(i, 11) = Sayfa1.Cells(i, 12) Then Sayfa1.Cells(i, 14) = "Doğru"

If Sayfa1.Cells(i, 11) <> Sayfa1.Cells(i, 12) Then Sayfa1.Cells(i, 14) = "Yanlış"

If Sayfa1.Cells(i, 1) = Soldan Then Sayfa1.Cells(i, 15) = "Doğru"

If Sayfa1.Cells(i, 1) <> Soldan Then Sayfa1.Cells(i, 15) = "Yanlış"

Next
 
Çözüm
SNNAY
ramazankaya89' Alıntı:
Herkese Selamlar

asagıdaki kodumda kalın alan sonucu hatalı geliyor nerde hata yapıyor olabilirim


For i = 2 To Son_Satır

Soldan = Left(Sayfa1.Cells(i, 3), 5)

If Sayfa1.Cells(i, 4) = Sayfa1.Cells(i, 9) Then Sayfa1.Cells(i, 10) = "Doğru"

If Sayfa1.Cells(i, 4) <> Sayfa1.Cells(i, 9) Then Sayfa1.Cells(i, 10) = "Yanlış"

If Sayfa1.Cells(i, 11) = Sayfa1.Cells(i, 12) Then Sayfa1.Cells(i, 14) = "Doğru"

If Sayfa1.Cells(i, 11) <> Sayfa1.Cells(i, 12) Then Sayfa1.Cells(i, 14) = "Yanlış"

If Sayfa1.Cells(i, 1) = Soldan Then Sayfa1.Cells(i, 15) = "Doğru"

If Sayfa1.Cells(i, 1) <> Soldan Then Sayfa1.Cells(i, 15) = "Yanlış"

Next
Genişletmek için tıkla...
Deneyiniz

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Tarihe göre sırala Oylara göre sırala
Yazdığınız kod doğru çalışıyor. Resimde sadece kalın alan sonucunu gösteriyor
1721710597340.png
 
Olumlu oy 0 Negatif oyla
ramazankaya89' Alıntı:
Herkese Selamlar

asagıdaki kodumda kalın alan sonucu hatalı geliyor nerde hata yapıyor olabilirim


For i = 2 To Son_Satır

Soldan = Left(Sayfa1.Cells(i, 3), 5)

If Sayfa1.Cells(i, 4) = Sayfa1.Cells(i, 9) Then Sayfa1.Cells(i, 10) = "Doğru"

If Sayfa1.Cells(i, 4) <> Sayfa1.Cells(i, 9) Then Sayfa1.Cells(i, 10) = "Yanlış"

If Sayfa1.Cells(i, 11) = Sayfa1.Cells(i, 12) Then Sayfa1.Cells(i, 14) = "Doğru"

If Sayfa1.Cells(i, 11) <> Sayfa1.Cells(i, 12) Then Sayfa1.Cells(i, 14) = "Yanlış"

If Sayfa1.Cells(i, 1) = Soldan Then Sayfa1.Cells(i, 15) = "Doğru"

If Sayfa1.Cells(i, 1) <> Soldan Then Sayfa1.Cells(i, 15) = "Yanlış"

Next
Genişletmek için tıkla...
Deneyiniz

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 1 Negatif oyla
Çözüm
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst