İnputbox ile alınan verini farklı fonksiyonda kullanımı

[koridor1903]

İyi çalışmalar dilerim. Sorunum basit ama aşamadım. Inputbox ile tc ve şifre bilgisini almak istiyorum. Bu bilgiler sabir olarak kalacak. Başka bir fonksiyonda da giriş işlemi yapılıyor. O fonksiyonda girilen bilgileri kullanmak istiyorum. Yardımcı olabilir misiniz?

Public Sub sifre_degistir()
Static tc, sifre As String
tc = InputBox("Tc girin", "Tc Değiştirme")
sifre = InputBox("Yeni Şifreyi Girin", "Şifreyi Değiştirme")
End Sub

Public Sub giris()
Msgbox tc & sifre
End Sub

gibi

 

[Necdet]

Merhaba,

tc ve şifreyi sub'ın üstünde kullanın

Dim tc, sifre As String

Public Sub sifre_degistir()
tc = InputBox("Tc girin", "Tc Değiştirme")
sifre = InputBox("Yeni Şifreyi Girin", "Şifreyi Değiştirme")
End Sub

Public Sub giris()
MsgBox tc & sifre
End Sub

 

[koridor1903]

Teşekkür ederim. Değişkenleri dışarıda tanımladık işe yardı ama bu seferde içindeki bilgiler hep aynı kalıyor. Boş kalıyor yani. Bir defa girildiği zaman tekrar girilene kadar içindeki bilgilerin sabit kalmasını istiyorum. Static olarak tanımladım kabul etmedi onu da.

 

[Necdet]

Merhaba,
https://www.automateexcel.com/vba/global-variables/inceleyin

 

[koridor1903]

Teşekkür ediyorum.