Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 24-03-2013, 13:15   #1
xxxcitixxx
 
Giriş: 13/08/2011
Şehir: ankara
Mesaj: 19
Excel Vers. ve Dili:
2007
Varsayılan Kıyaslama yapma

Selamlar,

Exceldeki iki Celldeki (Cells(1,1) ve Cells(1,2)) yaziyi(Rakam degil) kiyaslayarak eger ayni ise baska bir Celle (Celss(1,3)) true , yanlissa false yazacak.False olunca Cells(1,4)'e Cells(1,1)'deki degeri yazsin. Sadece burada kiyaslama islemini yapmadan once kullanicinin bir butona basmasi istenmektedir.

Bu islemleri gercekleyen bir macro yazilmasi acaba nasil olur. sabahtan beri yaziyorum ama dosyayi her kapatip actigimda macrolar ucuyor. Formati xls, xlsm falanda yaptim beceremedim. Yardimlarinizi bekliyorum.

Bu mesaj en son " 24-03-2013 " tarihinde saat 13:51 itibariyle xxxcitixxx tarafından düzenlenmiştir....
xxxcitixxx Çevrimdışı   Alıntı Yaparak Cevapla
Eski 24-03-2013, 13:39   #2
dEdE
Destek Ekibi
 
dEdE kullanıcısının avatarı
 
Giriş: 01/07/2005
Mesaj: 1,996
Excel Vers. ve Dili:
Excel-2003 Türkçe
Varsayılan

Merhaba,
Dosyanız ilişiktedir.
Büyük küçük harf duyarlı istiyorsanız baştaki Option Compare Text ifadesini kaldırmalısınız.

Bu arada konu başlığınızı değiştirmenizi öneririm. Başlık soruyu özetleyecek biçimde olmalıdır. Her soru soran sizin gibi "Makro yardım" yazarsa forumda nasıl arama yapacağız?

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Option Compare Text
Sub Karşılaştır()
    If Cells(1, 1).Value = Cells(1, 2).Value Then
        Cells(1, 3).Value = "True"
    Else
        Cells(1, 3).Value = "False"
    End If
End Sub
Eklenmiş Dosyalar
Dosya Türü: rar Karşılaştır.rar (12.2 KB, 17 Görüntülenme)
__________________
"Kara ve deniz geçit vermeyebilir. Sen havayı dene. Yeterki çözüm ara. Çözüm bulunur." Daedalus Efsanesi
dEdE Çevrimdışı   Alıntı Yaparak Cevapla
Eski 24-03-2013, 13:53   #3
xxxcitixxx
 
Giriş: 13/08/2011
Şehir: ankara
Mesaj: 19
Excel Vers. ve Dili:
2007
Varsayılan

dosya icin tesekkurler. basligi degistirmeye calistim umarim yeni hali daha iyi olmustur, bu arada buttona her basmam da , macro kodlarinin acildigi ekranin acilmasini istemiyorum bunu nasil duzeltecegim ?
xxxcitixxx Çevrimdışı   Alıntı Yaparak Cevapla
Eski 24-03-2013, 14:53   #4
dEdE
Destek Ekibi
 
dEdE kullanıcısının avatarı
 
Giriş: 01/07/2005
Mesaj: 1,996
Excel Vers. ve Dili:
Excel-2003 Türkçe
Varsayılan

Alıntı:
xxxcitixxx tarafından gönderildi Mesajı Görüntüle
...bu arada buttona her basmam da , macro kodlarinin acildigi ekranin acilmasini istemiyorum bunu nasil duzeltecegim ?
Merhaba,
Bunu amlamadım!
Sanırım VBA editörü açılıyor ama VBA editörünün açılmaması lazım.
Yeni bir excel dosyası açıp eklediğim kodu Modüle yapıştırarak dener misiniz?

Bu arada dosyayı açan üyelerimizin de aynı sonucu alıp almadıklarını merak ediyorum.
__________________
"Kara ve deniz geçit vermeyebilir. Sen havayı dene. Yeterki çözüm ara. Çözüm bulunur." Daedalus Efsanesi
dEdE Çevrimdışı   Alıntı Yaparak Cevapla
Eski 24-03-2013, 15:09   #5
vardar07
Destek Ekibi
 
vardar07 kullanıcısının avatarı
 
Giriş: 19/03/2008
Şehir: Kepez / ANTALYA
Mesaj: 2,154
Excel Vers. ve Dili:
Office 2007 Enterprise Türkçe
Varsayılan

Alıntı:
dEdE tarafından gönderildi Mesajı Görüntüle
Merhaba,

Bu arada dosyayı açan üyelerimizin de aynı sonucu alıp almadıklarını merak ediyorum.
Sayın dede, hata yok.
Alıntı:
xxxcitixxx tarafından gönderildi Mesajı Görüntüle
Selamlar,

Exceldeki iki Celldeki (Cells(1,1) ve Cells(1,2)) yaziyi(Rakam degil) kiyaslayarak eger ayni ise baska bir Celle (Celss(1,3)) true , yanlissa false yazacak.False olunca Cells(1,4)'e Cells(1,1)'deki degeri yazsin. Sadece burada kiyaslama islemini yapmadan once kullanicinin bir butona basmasi istenmektedir.
Koda ufakbir ekleme ile falsede dördüncü sütuna birdekini yazıyor.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Karşılaştır()
    If Cells(1, 1).Value = Cells(1, 2).Value Then
        Cells(1, 3).Value = "True"
    Else
        Cells(1, 3).Value = "False"
    If Cells(1, 3).Value = "false" Then
    Cells(1, 4).Value = Cells(1, 1).Value
    End If
    End If
End Sub
__________________
Veren El Alan Elden EVLA'dır...

Örnek excel dosyanızı,açıklamalarını da yazarak; UPTERABİT.COM, DOSYA.TC, DOSYA.CO gibi dosya paylaşım sitelerine ekleyip linkini burada bildirirseniz yardım almanız daha kolay olur.

Özel mesajlarda sorulan sorulara cevap vermiyorum.
vardar07 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 24-03-2013, 15:46   #6
xxxcitixxx
 
Giriş: 13/08/2011
Şehir: ankara
Mesaj: 19
Excel Vers. ve Dili:
2007
Varsayılan

ilginize tesekkurler
xxxcitixxx Çevrimdışı   Alıntı Yaparak Cevapla
Eski 24-03-2013, 18:03   #7
xxxcitixxx
 
Giriş: 13/08/2011
Şehir: ankara
Mesaj: 19
Excel Vers. ve Dili:
2007
Varsayılan

yalniz soyle bir sorunum var, Ben bu karsilastirma islemini yapmadan once baska bir islemde yapmak istiyorum ama buna ait olan fonksiyonu yazmayi beceremedim. ?Karsilastirma islemi oncesi istedigim kodu yerlestirebilecegim fonksiyon nasil yazilmalidir? Mesela Mesaj kutusu acabilir ve orda 5 yazsin, MsgBox 5 yani..
Ekteki dosyada random sayi uretiyorum ve oldugu satirdaki iki degeri kiyasliyorum
Eklenmiş Dosyalar
Dosya Türü: xlsm Karşılaştır.xlsm (21.2 KB, 3 Görüntülenme)

Bu mesaj en son " 24-03-2013 " tarihinde saat 18:08 itibariyle xxxcitixxx tarafından düzenlenmiştir....
xxxcitixxx Çevrimdışı   Alıntı Yaparak Cevapla
Eski 24-03-2013, 18:10   #8
vardar07
Destek Ekibi
 
vardar07 kullanıcısının avatarı
 
Giriş: 19/03/2008
Şehir: Kepez / ANTALYA
Mesaj: 2,154
Excel Vers. ve Dili:
Office 2007 Enterprise Türkçe
Varsayılan

Dosyayı eski haliyle ve yeni isteklerinizle düzenleyip eklerseniz anlaşılır olur. Kimse ordan kod al şuraya kod yaz yapamaz,uzun iş uğraşmak istemez.
__________________
Veren El Alan Elden EVLA'dır...

Örnek excel dosyanızı,açıklamalarını da yazarak; UPTERABİT.COM, DOSYA.TC, DOSYA.CO gibi dosya paylaşım sitelerine ekleyip linkini burada bildirirseniz yardım almanız daha kolay olur.

Özel mesajlarda sorulan sorulara cevap vermiyorum.

Bu mesaj en son " 24-03-2013 " tarihinde saat 18:16 itibariyle vardar07 tarafından düzenlenmiştir....
vardar07 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 24-03-2013, 18:12   #9
xxxcitixxx
 
Giriş: 13/08/2011
Şehir: ankara
Mesaj: 19
Excel Vers. ve Dili:
2007
Varsayılan

Dosyayi ekledim...Amacim asagidaki listeden random atadigim satirdaki degeri yukarda tahmin etmektir. Tahmin ettigim degeri de Cells(1,3) yaziyorum ve Karsilastir butonuna basinca dogru sonucu veriyor. Bir nebze sozluk vari biseye benzeyecek ama buradaki sozlukte degerler hemen ekrana yazdirilmak yerine butona basinca dogru sonuc veya yanlis sonucun yazdirilmasini istiyorum.
Eklenmiş Dosyalar
Dosya Türü: xlsm Karşılaştır.xlsm (21.2 KB, 4 Görüntülenme)

Bu mesaj en son " 24-03-2013 " tarihinde saat 20:46 itibariyle xxxcitixxx tarafından düzenlenmiştir....
xxxcitixxx Çevrimdışı   Alıntı Yaparak Cevapla
Eski 25-03-2013, 15:04   #10
xxxcitixxx
 
Giriş: 13/08/2011
Şehir: ankara
Mesaj: 19
Excel Vers. ve Dili:
2007
Varsayılan

yardimci olacak yok mudur?
xxxcitixxx Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 02:38


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon- Çorlu Dans- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden