CommandButton Kullanımı

[igultekin2000]

iyi akşamlar; makrolarda tek buton yaparak bir kaç makroyu call yazarak çalıştırabiliyoruz. Bazen istenmeyen sonuçlar olsa da idare ediyoruz. Sormak istediğim FIS_DTY sayfasında C2 hücresinde veridoğrulama ile firma seçip CommandButton5' e basarak makroyu çalıştırıyorum. Sonra FIS_DTY_2 sayfasına manuel geçerek Commanbutton10 butonuna bağlı maroyu çalıştırıyorum. Daha sonra tekrar FIS_DTY sayfasına geçerek aynı işlemi firma seçerek devam ediyorum. FIS_DTY sayfasındaki veri doğrulama firma seçtiğimde Commandbutton5' çalışıp sonra FIS_DTY_2 çalışma sayfasındaki Commandbutton10' un çalışmasını işlem kilitlenmeden yapabilirmiyiz. bu işlemi genel çalışmalarımda kullanmak istiyorum.

 

[yanginci34]

Örnek dosya eklermisiniz...

 

[igultekin2000]

Örnek dosya eklermisiniz...

çalışmam biraz karıştı o yüzden yüklememiştim, sadeleştirip yüklüyorum.

 

[yanginci34]

Denermisiniz.

 

[igultekin2000]

Denermisiniz.

Teşekkür ederim; Sorunsuz çalışıyor epey uğraşmıştım çözememiştim, anladığım kadarıyla

Private Sub CommandButton5_Click()
Call Kbelirle
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [firmaunvan]) Is Nothing Then Exit Sub
If Target <> "" Then
 Call Kbelirle
End If
End Sub

Private Sub CommandButton10_Click()
Call fis_detay_getir
End Sub

Private Sub CommandButton11_Click()
On Error Resume Next
Sheets("FIS_DTY").Select
 Range("C1").Select
End Sub

bu kodlarda yapmışsınız. Sanırım aynı uygulamayı başka işlemlerde de kullanabilirim. iyi çalışmalar

 

[yanginci34]

Rica ederim dönüş yaptığınız için ben teşekkür ederim.
not : Alttaki kırmızı ile yazılı olan kısım c3 hücresinde seçim yapıldığında çalışan kod yeni yazıldı ve
fis_detay_getir kodunuz bir modüle alınıp kod başına Sheets("FIS_DTY_2").Select eklendi.
Bunlara dikkat ederseniz başka butonları da ekleye bilirsiniz.

Private Sub CommandButton5_Click()
Call Kbelirle
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [firmaunvan]) Is Nothing Then Exit Sub
If Target <> "" Then
Call Kbelirle
End If
End Sub

Private Sub CommandButton10_Click()
Call fis_detay_getir
End Sub

Private Sub CommandButton11_Click()
On Error Resume Next
Sheets("FIS_DTY").Select
Range("C1").Select
End Sub