Makro butonuna her tıklandığında farklı veri çekmek

[ismail-34]

Çok Değerli Excel web ailesine Saygılar , Sevgiler.

Benim merak ettiğim bir konu var. bir makro butonuna max fazla 1 saniye aralıkla tıklandığında,her tıklayışımda farklı veri çekebilirmi ?

Projeme entegre etmek istediğim Örnek Ektedir.

İlgi gösterdiğiniz için şimdiden çok teşekkürlerimi bir borç bilirim

 

[DoğanD]

Merhaba,

Farklı veriden kastınız nedir? Rastgele firma ismi mi gelmeli? Belirli ölçü yada sınırlamaları var mı? Sıralı bir değişim ihtiyacınız varsa Kaydırma çubuğu yada Değer Değiştirme Düğmesi form denetimlerini tavsiye ederim.

 

[ismail-34]

Merhaba,

Farklı veriden kastınız nedir? Rastgele firma ismi mi gelmeli? Belirli ölçü yada sınırlamaları var mı? Sıralı bir değişim ihtiyacınız varsa Kaydırma çubuğu yada Değer Değiştirme Düğmesi form denetimlerini tavsiye ederim.

evet rastgele firma isimleri. sadece max 4 firma ismi b sütununda sıralanmış halde duruyor.her tıklandığında c2 ye farklı bir tanesini yazsın istiyorum.

 

[DoğanD]

Merhaba,

Aşağıdaki kodu bir modüle yapıştırıp butona atayarak kullanabilirsiniz.

Sub rast()
Dim yeni, mevcut As Variant
mevcut = Sayfa2.Range("C3").Value
tekrar:
yeni = WorksheetFunction.Index(Sayfa1.Range("B:B"), WorksheetFunction.RandBetween(4, Sayfa1.Range("b" & Rows.Count).End(xlUp).Row))
If yeni = "" Or yeni = mevcut Then GoTo tekrar
Sayfa2.Range("C2") = yeni
End Sub

 

[emrebengul]

peki bir dosya olsaydı sonuç olurdu Doğan Bey.
Örneğin bir veri dosyası var bilgisayarda onu çalışma yapacağımız sayfada açmak istiyoruz. Bununla alakalı bir bilginiz var mı acaba?

 

[DoğanD]

Merhaba,

Sorunuzun mevcut konuyla bağını kuramadım açıkçası. Sorunuzu farklı bir başlıkta sormanız daha uygun olur diye düşünüyorum.

peki bir dosya olsaydı sonuç olurdu Doğan Bey.
Örneğin bir veri dosyası var bilgisayarda onu çalışma yapacağımız sayfada açmak istiyoruz. Bununla alakalı bir bilginiz var mı acaba?

 

[ismail-34]

Merhaba,

Aşağıdaki kodu bir modüle yapıştırıp butona atayarak kullanabilirsiniz.

Sub rast()
Dim yeni, mevcut As Variant
mevcut = Sayfa2.Range("C3").Value
tekrar:
yeni = WorksheetFunction.Index(Sayfa1.Range("B:B"), WorksheetFunction.RandBetween(4, Sayfa1.Range("b" & Rows.Count).End(xlUp).Row))
If yeni = "" Or yeni = mevcut Then GoTo tekrar
Sayfa2.Range("C2") = yeni
End Sub

HARİKA çALIŞIYOR TAM İSTEDİĞİM GİBİ ÇOK TEŞEKKÜR EDERİM.