• 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 ile büyük harf kontrolünde Hata

Bu sorun verilen destek sayesinde çözüme ulaştırılmıştır.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
J

japonbaba

Yeni Üye
Kullanıcı Bilgileri
Katılım
7 Kas 2022
Mesajlar
29
Çözümler
1
Aldığı beğeni
14
Excel Versiyonu
Office 2019 TR
Konuyu Başlatan
Merhabalar, Makro ile (F5:AJ204) Satır Aralıklarını Büyük harf kontrolünü sağladığım bir kod düzenim var. Lakin artık satır düzenim değişti 1 satır Harften1satır rakamlardan oluşuyor Örnek:(F5:AJ5)=Harf (F6:AJ6)=Rakam bu şekilde 204 satıra kadar gidiyor fakat kodlar harf yerine rakam gördüğü için hata vermeye başladı. Bende For Next döngüsü içerisine alarak 2 şer adım atlama ile çözerim diye düşündün bu sefer döngüye girer girmez Is Nothing Then Exit Sub kendini sonlandırıyor. nasıl bir çözüm sağlayabilirim yardımcı olurmusunuz?

Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
[/CODE]

Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Çözüm
O
japonbaba' Alıntı:
Teşekkür ederim Satırın en başına aşağıdaki kodu ekleyerek çözdüm
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

Kodun tamamı şöyle oldu belirlenen alanda rakam görürse sub dan çıkıyor yoksa devam edip küçük harf ise büyük harfe çeviriyor.
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Genişletmek için tıkla...

C#:
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
aşağıdaki satırı eskisi ile değiştirin.
If Intersect(Target, Range(x & Sayi & ":" & sat & Sayi)) Is Nothing Then Exit Sub

eğer çalışmaz ise örnek dosya yükleyin ordan devam edelim.
 
Olumlu oy 0 Negatif oyla
martinmax' Alıntı:
aşağıdaki satırı eskisi ile değiştirin.
If Intersect(Target, Range(x & Sayi & ":" & sat & Sayi)) Is Nothing Then Exit Sub

eğer çalışmaz ise örnek dosya yükleyin ordan devam edelim.
Genişletmek için tıkla...
Aynı şekilde Sub dan çıkış veriyor yarın örnek dosya atacağım teşekkür ederim. Yada for next ile değilde zaten yukarıdaki ilk kodlamada satır içerisindeki veriyi target a atadığı için atadığı veri isnumarik kontrolü yapamazmıyız rakam ise direk çık değilse devam et gibi?
 
Olumlu oy 0 Negatif oyla
martinmax' Alıntı:
aşağıdaki satırı eskisi ile değiştirin.
If Intersect(Target, Range(x & Sayi & ":" & sat & Sayi)) Is Nothing Then Exit Sub

eğer çalışmaz ise örnek dosya yükleyin ordan devam edelim.
Genişletmek için tıkla...
Teşekkür ederim Satırın en başına aşağıdaki kodu ekleyerek çözdüm
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

Kodun tamamı şöyle oldu belirlenen alanda rakam görürse sub dan çıkıyor yoksa devam edip küçük harf ise büyük harfe çeviriyor.
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 0 Negatif oyla
Deneyiniz.
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 0 Negatif oyla
japonbaba' Alıntı:
Teşekkür ederim Satırın en başına aşağıdaki kodu ekleyerek çözdüm
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

Kodun tamamı şöyle oldu belirlenen alanda rakam görürse sub dan çıkıyor yoksa devam edip küçük harf ise büyük harfe çeviriyor.
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Genişletmek için tıkla...

C#:
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
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

Konuyu okuyanlar

Toplam: 2 (Kullanıcı: 0, Ziyaretçi: 2)
Geri
Üst