Salon Tahsis Programı Hakkında

Nurti64

Altın Üye
Katılım
22 Temmuz 2025
Mesajlar
4
Excel Vers. ve Dili
Office 365 Excel 2506
Altın Üyelik Bitiş Tarihi
22-07-2026
Merhaba arkadaşlar, Excel programını uzun yıllardır mesleğim gereği kullanıyorum ama vba da çok yeniyim. Salon Tahsis ve Mahalle Konak kiralama ile ilgili küçük bir program yazıyorum ama daha ilk dakidakan tökezledim.

Altın üye olmadığım için dosya yükleyemiyorum. 10-12 adet texbox'ım var ve textbox içine yazdığım metinleri excelde B3 A17 C24 gibi hücrelere yazdırmak istiyorum ama maalesef bunu yapamadım. İzlemiş olduğum eğitim setlerinde ise bu kısmı göremedim yada yapamadım.Userform üzerinde 11-12 adet textbox var ve ben bunları tek bir excel sayfasına değil birden fazla örnek; Dikilitaş, Karaağaç, Şerafettin mahalle konakları sayfasına da yazmasını istiyorum. Bu konu hakkında bana yardımcı olabilir misiniz?
 

volki_112

Altın Üye
Katılım
29 Eylül 2023
Mesajlar
728
Excel Vers. ve Dili
2019 Türkçe
Altın Üyelik Bitiş Tarihi
13-12-2029
Merhaba arkadaşlar, Excel programını uzun yıllardır mesleğim gereği kullanıyorum ama vba da çok yeniyim. Salon Tahsis ve Mahalle Konak kiralama ile ilgili küçük bir program yazıyorum ama daha ilk dakidakan tökezledim.

Altın üye olmadığım için dosya yükleyemiyorum. 10-12 adet texbox'ım var ve textbox içine yazdığım metinleri excelde B3 A17 C24 gibi hücrelere yazdırmak istiyorum ama maalesef bunu yapamadım. İzlemiş olduğum eğitim setlerinde ise bu kısmı göremedim yada yapamadım.Userform üzerinde 11-12 adet textbox var ve ben bunları tek bir excel sayfasına değil birden fazla örnek; Dikilitaş, Karaağaç, Şerafettin mahalle konakları sayfasına da yazmasını istiyorum. Bu konu hakkında bana yardımcı olabilir misiniz?
Bütün textboxlarini doldur. Daha sonra kaydet tusuna basarsan. Kaydet tusuna alttaki gibi bir kod yazarsin.

Worksheets("Dikilitaş").Range("B3").Value = TextBox1.Value

Textbox1 deki degeri dikilitas b3 hücresine yazar.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
43,200
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Linkler faydalı olacaktır..

 

Nurti64

Altın Üye
Katılım
22 Temmuz 2025
Mesajlar
4
Excel Vers. ve Dili
Office 365 Excel 2506
Altın Üyelik Bitiş Tarihi
22-07-2026
Bütün textboxlarini doldur. Daha sonra kaydet tusuna basarsan. Kaydet tusuna alttaki gibi bir kod yazarsin.

Worksheets("Dikilitaş").Range("B3").Value = TextBox1.Value

Textbox1 deki degeri dikilitas b3 hücresine yazar.
İyi ki varsın be hocam :) çok teşekkür ederim. Bir kıvılcım bekliyordum sen yaktın ateşi. Userform ekranını tamamladıktan sonra takıldığım konularda size yazabilir miyim ?
 

Nurti64

Altın Üye
Katılım
22 Temmuz 2025
Mesajlar
4
Excel Vers. ve Dili
Office 365 Excel 2506
Altın Üyelik Bitiş Tarihi
22-07-2026
Peki şöyle yapabilir miyim;

Worksheets("Dikilitaş").Range("B12").Value = TextBox1.Value
Worksheets("Dikilitaş").Range("B20").Value = TextBox1.Value
Worksheets("Dikilitaş").Range("A33").Value = TextBox1.Value

Textbox'a girilen bir metnin Dikilitaş sayfasında birden fazla yere yazılması gerekiyor. Dikilitaş Sayfası 3 sayfalık bir sözleşme ve sözleşmeyi yapan kişinin her sayfada imza atması için adı soyadı var.

Aynı şekilde Dikilitaş, Karaağaç ve Şerafettin sayfalarına da bu bilgileri girmesi gerekiyor. En sonda da hangi mahalle konağının sözleşmesi çıkacaksa Dikilitaş Yazdır Butonu, Karaağaç Yazdır Butonu, Şerafettin Yazdır butonu yapıp. Hangi mahalle konağı ile ilgili sözleşme çıkacaksa onu çıktı alıp vatandaşa imzalatacağım.

Uzun lafın kısası bir sözleşme bilgilerini girdiğim form üzerinden 3 yada 4 excel sayfasına bu bilgileri gönderecek ve en sonunda hangi mahalle konağı ile ilgili çıktı almak istiyorsam onu çıktı alacağım.

Yukarıdaki örnek çalıştı her sayfa için aynen bu şekilde yazmam mı gerekiyor yoksa daha basit bir yöntemi var mı ? Şimdiden çok teşekkür ederim.
 

volki_112

Altın Üye
Katılım
29 Eylül 2023
Mesajlar
728
Excel Vers. ve Dili
2019 Türkçe
Altın Üyelik Bitiş Tarihi
13-12-2029
Peki şöyle yapabilir miyim;

Worksheets("Dikilitaş").Range("B12").Value = TextBox1.Value
Worksheets("Dikilitaş").Range("B20").Value = TextBox1.Value
Worksheets("Dikilitaş").Range("A33").Value = TextBox1.Value

Textbox'a girilen bir metnin Dikilitaş sayfasında birden fazla yere yazılması gerekiyor. Dikilitaş Sayfası 3 sayfalık bir sözleşme ve sözleşmeyi yapan kişinin her sayfada imza atması için adı soyadı var.

Aynı şekilde Dikilitaş, Karaağaç ve Şerafettin sayfalarına da bu bilgileri girmesi gerekiyor. En sonda da hangi mahalle konağının sözleşmesi çıkacaksa Dikilitaş Yazdır Butonu, Karaağaç Yazdır Butonu, Şerafettin Yazdır butonu yapıp. Hangi mahalle konağı ile ilgili sözleşme çıkacaksa onu çıktı alıp vatandaşa imzalatacağım.

Uzun lafın kısası bir sözleşme bilgilerini girdiğim form üzerinden 3 yada 4 excel sayfasına bu bilgileri gönderecek ve en sonunda hangi mahalle konağı ile ilgili çıktı almak istiyorsam onu çıktı alacağım.

Yukarıdaki örnek çalıştı her sayfa için aynen bu şekilde yazmam mı gerekiyor yoksa daha basit bir yöntemi var mı ? Şimdiden çok teşekkür ederim.
her farklı yere yazılacak veri için yukarıda yaptığın gibi yapman lazım. daha pratik çözümler de mevcut ama Dosyanın kendisi olmadığı için bir şey diyemiyorum şu an. Makro ile yazdır örneğinizdeki gibi istediğiniz her şeyi yapabilirsiniz. Dosyanın kendisini paylaşırsanız daha güzel çözümler gelir.
 
Üst