Çözüldü Msgbox-Userform İle Değişken Tanımlama

[ywzyilmaz]

Merhaba

Makro çalıştığı zaman kullanıcıdan 2 yada 3 adet tamamen sayılardan oluşan veri isteyeceğim ve bu verileri değişkenlere atayacağım. Bunu nasıl yapabilirim?

 

[ywzyilmaz]

Merhaba

Makro çalıştığı zaman kullanıcıdan 2 yada 3 adet tamamen sayılardan oluşan veri isteyeceğim ve bu verileri değişkenlere atayacağım. Bunu nasıl yapabilirim?

Küçük bir messagebox çıkıp adet girmesini nasıl sağlayabilirin?

 

[FERAZ]

Küçük bir messagebox çıkıp adet girmesini nasıl sağlayabilirin?

İnputbox ile yapabilirsinz.

 

[ywzyilmaz]

User Form ile bir form tasarladım makroyu çalıştırınca form ekranım açılıyor. Bilgi girişi yapılıyor. Girilen bilgileri değişkene tanımlıyorum.

Private Sub giris_Click()
maknt = TextBox1.Text
boyaadt = TextBox2.Text
kazanadtt = TextBox3.Text
Windows("reçetebarkod.xlsm").Activate
Sayfa1.Range("E23") = maknt
Sayfa1.Range("E24") = boyaadt
Sayfa1.Range("E25") = kazanadtt
End Sub

Fakat tanımladığım değişkenleri başka bir çalışma kitabına önümde sürekli açık olan diğer excel kitabına aktarmam gerekiyor. Bu şekilde çalıştıramadım.

Nerede hata yapıyorum?

 

[FERAZ]

Windows

Bunun yerine workbooks olabilir belki deneyemedim.
Yada diğer açık sayfa set olarak yapılabilir.

 

[Muzaffer Ali]

Merhaba.
Deneyiniz.

Private Sub giris_Click()
    With Workbooks("reçetebarkod.xlsm").Worksheets("Sayfa1")
        .Range("E23") = InputBox("1. Rakamı giriniz.")
        .Range("E24") = InputBox("2. Rakamı giriniz.")
        .Range("E25") = InputBox("3. Rakamı giriniz.")
    End With
End Sub