[Yardım]  Inputbox'a makro ile otomatik veri girişi

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Inputbox'a makro ile otomatik veri girişi

İleti#1)  Abdullahorhan » 11 May 2019 16:28

Merhaba excel üzerinde bir dosya hazırlıyorum ve vba konusunda acemiyim. Ekran görüntüsünde görünen cari oran tuşuna bastığımda ilk önce karşılaştırmak istediğim şirket sayısını sonrada şirket isimlerini giriyorum. Karşılaştırmak istediğim şirket ismi yüzlerce olduğu için bunu makro ile otomatik olarak nasıl yapabilirim?
"Şirket ismi giriniz" kısmına bir şirketin adını yazdığımda "anatablo" adlı sayfamdaki tabloda a1 hücresine şirket adını yazarak şirketin "cari oran" değerini bana cari oran altına yazıyor.
not olarak: Her şirketin kendi ayrı worksheeti var kendi isminde yani 100 adet şirket varsa, her şirketin kendi bilgilerini içeren 100 farklı şirket adında sayfa var. Ekran görüntülerinden ne demek istediğimi anlayacağınızı düşünüyorum.
Yardımlarınız için teşekkürler.
Resim
Kullanıcı avatarı
Abdullahorhan
Yeni Başlamış
 
Kayıt: 07 Oca 2019 19:15
Meslek: Öğrenci
Yaş: 21
İleti: 10
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa

Cevap: Inputbox'a makro ile otomatik veri girişi

İleti#2)  şahin » 12 May 2019 00:30

Kod: Tümünü seç
For Each sayfalar In ActiveWorkbook.Sheets
MsgBox sayfalar.Name
Next sayfalar
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 30
İleti: 626
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Cevap: Inputbox'a makro ile otomatik veri girişi

İleti#3)  Abdullahorhan » 12 May 2019 00:51

şahin yazdı:
Kod: Tümünü seç
For Each sayfalar In ActiveWorkbook.Sheets
MsgBox sayfalar.Name
Next sayfalar

Bu kodu nasıl kullanmam gerekiyor biraz açıklayabilir misiniz?
Kullanıcı avatarı
Abdullahorhan
Yeni Başlamış
 
Kayıt: 07 Oca 2019 19:15
Meslek: Öğrenci
Yaş: 21
İleti: 10
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa

Cevap: Cevap: Inputbox'a makro ile otomatik veri girişi

İleti#4)  Abdullahorhan » 12 May 2019 00:53

şahin yazdı:
Kod: Tümünü seç
For Each sayfalar In ActiveWorkbook.Sheets
MsgBox sayfalar.Name
Next sayfalar

Bu kod sanırım sayfa isimlerini msgboxta gösteriyor ama benim yapmak istediğim şey cari oran tuşuna bastığımda çıkan inputbox'a tüm sayfa isimlerini tek tek otomatik yazdırmak
Kullanıcı avatarı
Abdullahorhan
Yeni Başlamış
 
Kayıt: 07 Oca 2019 19:15
Meslek: Öğrenci
Yaş: 21
İleti: 10
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Cevap: Cevap: Inputbox'a makro ile otomatik veri giri

İleti#5)  Mesut Topal » 12 May 2019 02:57

[/quote]
Bu kod sanırım sayfa isimlerini msgboxta gösteriyor ama benim yapmak istediğim şey cari oran tuşuna bastığımda çıkan inputbox'a tüm sayfa isimlerini tek tek otomatik yazdırmak[/quote]

Şahin Bey'in sayfa isimlerini alabileceğiniz kodu vermiş, nasıl kullanmak istediğiniz size kalmış.
yani;
Kod: Tümünü seç
For Each sayfalar In ActiveWorkbook.Sheets
...............................
Next sayfalar


noktalı kısma
MsgBox sayfalar.Name yazarsanız msgbox ta görüntülenir.
cells(cells(rows.count,1).end(3).row+1 , 1) = sayfalar.Name yazarsanız 1.sütuna listelenir.
ComboBox1.AddItem sayfalar.Name yazarsanız ComboBox1 adlı ComboBox'ta listelenir.
ListBox1.AddItem sayfalar.Name yazarsanız ListBox1 adlı ComboBox'ta listelenir.
Tahminim istediğiniz bu.
Çünkü inputbox ta listeleme özelliği yok.
Kullanıcı avatarı
Mesut Topal
Siteye Alışmış
 
Kayıt: 15 Eyl 2016 19:19
Meslek: Matematik Öğretmeni
Yaş: 32
İleti: 365
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Samsun/Ladik

Cevap: Inputbox'a makro ile otomatik veri girişi

İleti#6)  Abdullahorhan » 12 May 2019 03:38

Yanıt için teşekkür ederim, tam olarak ne istediğimi excel örneği vererek anlatmaya çalıştım.
Mesut Topal yazdı:

Bu kod sanırım sayfa isimlerini msgboxta gösteriyor ama benim yapmak istediğim şey cari oran tuşuna bastığımda çıkan inputbox'a tüm sayfa isimlerini tek tek otomatik yazdırmak[/quote]

Şahin Bey'in sayfa isimlerini alabileceğiniz kodu vermiş, nasıl kullanmak istediğiniz size kalmış.
yani;
Kod: Tümünü seç
For Each sayfalar In ActiveWorkbook.Sheets
...............................
Next sayfalar


noktalı kısma
MsgBox sayfalar.Name yazarsanız msgbox ta görüntülenir.
cells(cells(rows.count,1).end(3).row+1 , 1) = sayfalar.Name yazarsanız 1.sütuna listelenir.
ComboBox1.AddItem sayfalar.Name yazarsanız ComboBox1 adlı ComboBox'ta listelenir.
ListBox1.AddItem sayfalar.Name yazarsanız ListBox1 adlı ComboBox'ta listelenir.
Tahminim istediğiniz bu.
Çünkü inputbox ta listeleme özelliği yok.[/quote]
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Abdullahorhan
Yeni Başlamış
 
Kayıt: 07 Oca 2019 19:15
Meslek: Öğrenci
Yaş: 21
İleti: 10
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Inputbox'a makro ile otomatik veri girişi

İleti#7)  şahin » 12 May 2019 23:25

Ekte
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 30
İleti: 626
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Cevap: Inputbox'a makro ile otomatik veri girişi

İleti#8)  Abdullahorhan » 13 May 2019 00:07

şahin yazdı:Ekte

elinize sağlık çok güzel olmuş çok teşekkür ederim.
Kullanıcı avatarı
Abdullahorhan
Yeni Başlamış
 
Kayıt: 07 Oca 2019 19:15
Meslek: Öğrenci
Yaş: 21
İleti: 10
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: cadriano, Yandex[Bot] ve 1 misafir

Bumerang - Yazarkafe