sayfadan combobox'a veri aktarımı

[cem yılmaz]

ayhan bey müthişsiniz daha ne diyebilirimki.......
benim 10 sayfada güncelleme işlemim var bunları tek userform üzerinden işlem yaptırabilirmiyim? yani userformu bir sefer açtığım zaman ilgili sayfalarda işlemi otomatik olarak yapabilsin..?
çalışma sayfamı size gönderiyorum

 

[Ayhan Ercan]

Merhaba @yilmazcem

Userformunuza sayfaları seçebileceğiniz bir combobox ilave ettim.
Dosyanız ekte...

 

[cem yılmaz]

Merhaba Ayhan Bey

şu sorunumu çözemiyorum..Forumda aramadık yer bırakmadım ama tam olarak istediğimi yapamadım.
dosyayı tıkladığım zaman userform otomatik olarak geliyor "X" işaretinden kapatınca yok oluyor tekrar dosyaya girmek istediğimde aşağıdaki hatayı veriyor.Forumdakilerden yola çıkarak yapamadım.kapat tuşuna basınca veya esc tuşuna basınca excele dönüyor "X" işaretine basıncada dönmesi işlemini yaptırtabilirmiyiz..

 

[cem yılmaz]

Dosyami Eklemeyİ UnutmuŞum ÖzÜr Dİlerİm.

 

[Ayhan Ercan]

Merhaba @yilmazcem,
.................

Örnek dosya Yollayabilirmisiniz?

 

[cem yılmaz]

43.mesajımda yolladım Ayhan Bey

Teşekkürler

 

[Ayhan Ercan]

Merhaba,

"Kapat" düğmesinde yazan kodları Userformun Query Close olayına yazın...

 

[cem yılmaz]

ama bu seferde klavyem işlevini yitiriyor Ayhan bey bunu nasıl yaparız

 

[Ayhan Ercan]

Ben denedim ve sorunsuz çalıştı. Klavyeme de bişey olmadı...

 

[cem yılmaz]

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
End
Application.Visible = True
Unload UserForm1
End
End Sub

Eğer yanlış yapıyorsam beni uyarırmısınız yukardaki kod değilmi

 

[Ayhan Ercan]

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
End
Application.Visible = True
Unload UserForm1
End
End Sub

Eğer yanlış yapıyorsam beni uyarırmısınız yukardaki kod değilmi

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Application.Visible = True
Unload UserForm1
End Sub

"End" leri kaldırark deneyiniz...

 

[cem yılmaz]

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Application.Visible = True
Unload UserForm1
End
End Sub

Ayhan Bey yine olmadı ama ne kadar sağlıklı çalıştığını bilmiyorum.
end sub dan önce end ekleyince olay düzeliyor ama doğrumu?çünkü 51.mesajınızdaki verdiğiniz kodu çalıştıramadım çarpıdan kapatınca excel'e dönüyor ama klavye inaktif oluyordu..
Şuanlık sorun yok ama işlem doğrumu acaba bana ilerde hatalara sebep olmasın..?

 

[Ayhan Ercan]

Sorun yoksa, Sorun Yoktur......
İyi Çalışmalar...

 

[cem yılmaz]

Paylaşımlarınız için teşekkür ederim

 

[cem yılmaz]

Private Sub CommandButton1_Click()
Dim k As Range, w As Range
If TextBox2.Value = "" Then Exit Sub
Set k = Range("B5:B65536").Find(TextBox2.Value, , xlValues, xlWhole)
Set w = Range("c5:c65536").Find(TextBox3.Value, , xlValues, xlWhole)
    If Not k Is Nothing Then
        If Not w Is Nothing Then
            cevap = MsgBox("Bu Tesisat No daha önce" & w.Offset(0, -1).Value & _
            " Mühür No ile girilmiştir." & Chr(13) & _
            "Yine de güncellensin mi?", vbYesNo, "UYARI")
            If cevap = vbYes Then
                If k.Offset(0, 1).Value = "" And k.Offset(0, 2).Value = "" Then
                    k.Select
                    k.Value = TextBox2.Value
                    k.Offset(0, 1).Value = TextBox3.Value
                    k.Offset(0, 2).Value = TextBox1.Value
                    k.Offset(0, 3).Value = DTPicker1.Value
                    k.Offset(0, 4).Value = ComboBox1.Value
                    k.Offset(0, 3).NumberFormat = "dd.mm.yyyy"
                Else
                    MsgBox "Bu Mühür No daha önce güncellenmiştir!", vbCritical, "UYARI"
                End If
            End If
        ElseIf w Is Nothing Then
            If k.Offset(0, 1).Value = "" And k.Offset(0, 2).Value = "" Then
                    k.Select
                    k.Value = TextBox2.Value
                    k.Offset(0, 1).Value = TextBox3.Value
                    k.Offset(0, 2).Value = TextBox1.Value
                    k.Offset(0, 3).Value = DTPicker1.Value
                    k.Offset(0, 4).Value = ComboBox1.Value
                    k.Offset(0, 3).NumberFormat = "dd.mm.yyyy"
                Else
                    MsgBox "Bu Mühür No daha önce güncellenmiştir!", vbCritical, "UYARI"
                End If
        End If
    Else
        MsgBox "Aranılan Mühür No Bulunamadı..!!", vbCritical, "MÜHÜR NO"
    End If
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox2.SetFocus
End Sub

bu kodlarda "set k" ve "set w" işlemlerini çalışma kitabı için geçerli kılmak mümkünmüdür? yani arama işlemini sayfada değilde kitap üzerinde yapsın ..

 

[cenderus]

dosya ektedir

konu başlığına ait bulabildiğim dosya ektedir