• 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ı

korhan hocamızın yazdığı koddaki hata mühür numaralarını program kendi işliyor oysa bizim sizinle yaptığımızda ise mühür numaraları zaten kayıtlıydı sadece yanına bilgilerini kaydediyordu
 
Yani istediğim şeyi tam olarak şöyle diyebilirim EVREN HOCAM
sizin yapmış olduğunuz 4.mesajdaki dosyaya ilaveten;

1-) Kaydet tuşuna bastıktan sonra kaydetsin ve userformdaki bilgileri silip imleci mühür no textbox'a getirsin (yeniden kayıt yapabilmek için )

2-)daha önceden kayıtlı olan mühür numarasına kayıt yapmasın uyarı versin
 
yilmazcem' Alıntı:
Yani istediğim şeyi tam olarak şöyle diyebilirim EVREN HOCAM
sizin yapmış olduğunuz 4.mesajdaki dosyaya ilaveten;

1-) Kaydet tuşuna bastıktan sonra kaydetsin ve userformdaki bilgileri silip imleci mühür no textbox'a getirsin (yeniden kayıt yapabilmek için )

2-)daha önceden kayıtlı olan mühür numarasına kayıt yapmasın uyarı versin
Genişletmek için tıkla ...
Bu istediklerinizi benim yoladığım dosya yapmıyor ki ilaveten olsun.
Bu istedikleriniz Korhan hocamın kodları yapıyor.
Benim yoladığım dosyada daha önceden kayıtlı bir bilgi güncelleniyordu.
 
Evren hocam

benim istediğim sizin yaptığınız 4.mesajdaki program korhan hocanın verdiği kodlar tam olarak istediğim değil hatası ise

yilmazcem' Alıntı:
korhan hocamızın yazdığı koddaki hata mühür numaralarını program kendi işliyor oysa bizim sizinle yaptığımızda ise mühür numaraları zaten kayıtlıydı sadece yanına bilgilerini kaydediyordu
Genişletmek için tıkla ...

Sizden istediğim yapmış olduğunuz 4.mesajdaki dosyaya ilaveten;

1-) Kaydet tuşuna bastıktan sonra kaydetsin ve userformdaki bilgileri silip imleci mühür no textbox'a getirsin (yeniden kayıt yapabilmek için )

2-)daha önceden kayıtlı olan mühür numarasına kayıt yapmasın uyarı versin

bu düzenlemeleri yapabilirsek artık bu konuda mesaj yazmayacağım size söz veriyorum
 
yilmazcem' Alıntı:
Evren hocam

benim istediğim sizin yaptığınız 4.mesajdaki program korhan hocanın verdiği kodlar tam olarak istediğim değil hatası ise



Sizden istediğim yapmış olduğunuz 4.mesajdaki dosyaya ilaveten;

1-) Kaydet tuşuna bastıktan sonra kaydetsin ve userformdaki bilgileri silip imleci mühür no textbox'a getirsin (yeniden kayıt yapabilmek için )

2-)daha önceden kayıtlı olan mühür numarasına kayıt yapmasın uyarı versin

bu düzenlemeleri yapabilirsek artık bu konuda mesaj yazmayacağım size söz veriyorum
Genişletmek için tıkla ...

Bende onu diyorum.
Benim yaptığım dosya sizin istedikleriniz yapmıyor.Sadece güncelleme yapıyor.
Korhan Hocamın yaptığı kodlar ise sizin istedikleriniz yapıyor yani yeni kayıt yapıyor.Dağa önceden bir kayıt varsa sizinde istediğiniz gibi uyarı veriyor.
Ne istediğniz anlamış değilim.:cool:
 
yeniden kayıttan maksadım;

123124 nolu mühürü 5 tesisat no 1 endeks ile değiştir-bul dedim diyelim.daha sonra mühür kutusunu silsin ki ben diğer işleme geçebileyim yani sıradaki mühür numarasına işlem yapayım korhan hocanın programı sıfırdan kayıt yapıyor benim istediğim sizin kod programınız yani GÜNCELLEME diyebiliriz.sizin kodların eksiklikleri ise dediğim gibi

1-) Kaydet tuşuna bastıktan sonra kaydetsin ve userformdaki bilgileri silip imleci mühür no textbox'a getirsin (başka bir işlem güncelleyebilmek için)

2-)daha önceden güncellenmiş mühür numarasına GÜNCELLEME yapmasın uyarı versin

inşallah açıklayıcı olabilmişimdir evren hocam
 
Selamlar,

Ekteki örnek dosyayı inceleyip varsa eksiklerini bildirirmisiniz.
 
Son düzenleme:
kapat ve kaydet kodlarını birleştirirsek işlem çözülüyor KORHAN hocam

kapat düğmesindeki kodların kaydet düğmesine aktarılması gerek hocam ki kaydet'e basınca güncellesin(dosyadaki kapat tuşu yani) aynı mühüre güncelleme yapılınca uyarsın (dosyadaki kaydet tuşu yani) bu kod kapat tuşuna hata ile geçmiş sanırım

yalnız mühür numaralarını ben elle daha önceden aten girmiş oluyorum program sadece yazılan mühür karşısına girilen verileri güncellesin
 
size daha yardımcı olması için çalışma sayfamı gönderiyorum hocam
 
Selamlar,

Size sorularım var.

Örnek dosyanızdan anladığım kadarıyla listenizde olmayan bir mühür no yazarsanız bu yeni bir kayıt olacak. Eğer varolan bir mühür no kaydetmek istediğinizde daha önceden kaydetmiş olduğunuz satırdaki bilgileri form üzerindeki yeni bilgiler ile güncelleyecek. İstediğiniz bu şekildemidir?
 
Selamlar,

Üstteki mesajımdaki dosyada bazı değişiklikler yaptım. Kontrol edermisiniz.
 
Korhan hocam yardımlarınızdan dolayı çok çok teşekkür ederim

asıl istediklerimi çok açık bir dille dosyada açıkladım hocam bu şekilde yardım edermisiniz?
 
Selamlar,

27 nolu başlıktaki dosyada gerekli değişiklikleri yaptım. İncelermisiniz.
 
Merhaba,
Hakikaten istediğinizi anlamak zor.
Mühür no nun daha önce güncelleme yapıp yapmadığını nasıl bileceğiz?
Ben şöyle düşündüm. Eğer güncelleme yapıldıysa Tesisat ve Endeks nolarınında dolu olmuş olacağını varsayarak bir yol denedim.

Kaydet butonundaki kodları aşağıdakilerle değiştirerek denermisiniz?

Kod: 
Dim k As Range
If TextBox2.Value = "" Then Exit Sub
Set k = Range("B5:B65536").Find(TextBox2.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    [COLOR=red][B]If k.Offset(0, 1).Value = "" And k.Offset(0, 2).Value = "" Then[/B][/COLOR]
        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"
    [B][COLOR=red]Else
    MsgBox "Bu Mühür No daha önce güncellenmiştir!", vbCritical, "UYARI"
    End If
[/COLOR][/B]Else
MsgBox "Aranılan Mühür No Bulunamadı..!!", vbCritical, "MÜHÜR NO"
End If
End Sub
 
Evet AYHAN bey istediğim buydu
Korhan hocam sizede çok teşekkür ederim yardımlarınızdan dolayı
tek istediğim korhan hocanın 27.mesajda yapmış olduğu kayıttan sonra bilgileri sıfırlama işlemi yani ayhan beyin formülünde kaydet'e bastıktan sonra sicil no ve tarih hariç diğer bilgileri sıfırlasın ki sıradaki mühüre işlem yapabileyim.
Aşağıdaki resimdeki gibi kayıttan sonra durum-2 konumundan durum-1 konumuna geçsin

59bs7.jpg
 
Merhaba,

Kodlar aşağıda:

Kod: 
Private Sub CommandButton1_Click()
Dim k As Range
If TextBox2.Value = "" Then Exit Sub
Set k = Range("B5:B65536").Find(TextBox2.Value, , xlValues, xlWhole)
    If Not k 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
    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
 
Son düzenleme:
evet bu iş bu kadar
Bu form'un yapımında emeği geçen başta Evren hocam size,
daha sonra bize çok yardımcı olan Korhan hocama ve
formdaki istediğim olayları sonuca bağlayan Ayhan bey sizlere çok çok teşekkür ederim.

İyi çalışmalar..
 
yilmazcem' Alıntı:
evet bu iş bu kadar
Bu form'un yapımında emeği geçen başta Evren hocam size,
daha sonra bize çok yardımcı olan Korhan hocama ve
formdaki istediğim olayları sonuca bağlayan Ayhan bey sizlere çok çok teşekkür ederim.

İyi çalışmalar..
Genişletmek için tıkla ...

Sevindim . :) İyi Çalışmalar...
 
Şu işlemi unutmuşum ben yaptım ama aranılan mühür bulunamadı diyor kırmızıyla yazdığımı ben ekledim olmadı
yaptığım işlem İşlem şöyle

Private Sub CommandButton1_Click()
Dim k As Range
If TextBox2.Value = "" Then Exit Sub
Set k = Range("B5:B65536").Find(TextBox2.Value, , xlValues, xlWhole)
Set k = Range("c5:c65536").Find(TextBox3.Value)
If Not k 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
Else
MsgBox "Aranılan Mühür No Bulunamadı..!!", vbCritical, "MÜHÜR NO"
End If
Set S1 = Nothing
Set BUL = Nothing
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
DTPicker1 = Format(Date, "dd.mm.yyyy")
TextBox2.SetFocus
End Sub


yapmak istediğim ise farklı mühür numaralarına aynı tesisat numarasıda işlemesin yani ben 8515001 mühüre 5 numaralı tesisat güncellersem 8515002 mühüre yine 5 numaralı tesisat güncellemek için sorsun onaylarsam işlesin böyle bir şey yapılabilirmi?
 
Merhaba, @yilmazcem

Kodlar aşağıda, denermisiniz??

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