• Bir süredir maillerde yaşanan sorunlar giderilmiştir. Şifremi unuttum yaparak şifrelerinizi mailinizden alabilirsiniz.

  • Foruma hoş geldin 👋 Ziyaretçi

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

Bronz Üye
Kullanıcı Bilgileri
Aktiflik
Çevrimdışı
Katılım
8 Haz 2024
Mesajlar
50
Çözümler
1
Aldığı beğeni
5
Excel V
Office 2019 TR
Konuyu Başlatan
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

Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
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
 

Ekli dosyalar

  • 1721709944520.png
    1721709944520.png
    13.1 KB · Gösterim: 1
Olumlu oy 0 Negatif oyla
Sonradan aklıma geldi, test ettiğiniz alanlar sayısal değer ise
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
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

Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 1 Negatif oyla
Çözüm
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst