• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

sayfadan combobox'a veri aktarımı

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
 
Merhaba @yilmazcem

Userformunuza sayfaları seçebileceğiniz bir combobox ilave ettim.
Dosyanız ekte...
 
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..
ffffqr5.png
 
Son düzenleme:
Merhaba @yilmazcem,
.................

Örnek dosya Yollayabilirmisiniz?
 
Merhaba,

"Kapat" düğmesinde yazan kodları Userformun Query Close olayına yazın...
 
ama bu seferde klavyem işlevini yitiriyor Ayhan bey bunu nasıl yaparız
 
Ben denedim ve sorunsuz çalıştı. Klavyeme de bişey olmadı...
 
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
 
yilmazcem' Alıntı:
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
Genişletmek için tıkla ...


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


"End" leri kaldırark deneyiniz...
 
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..?
 
Sorun yoksa, Sorun Yoktur...... ;)
İyi Çalışmalar...
 
Paylaşımlarınız için teşekkür ederim
 
Kod: 
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
Genişletmek için tıkla ...

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 ..
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst