sayfadan combobox'a veri aktarımı

cem yılmaz · 12 Haziran 2008

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

cem yılmaz · 12 Haziran 2008

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

Orion1 · 12 Haziran 2008

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

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.

cem yılmaz · 12 Haziran 2008

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

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

Orion1 · 12 Haziran 2008

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

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.

cem yılmaz · 12 Haziran 2008

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

Korhan Ayhan · 12 Haziran 2008

Selamlar,

Ekteki örnek dosyayı inceleyip varsa eksiklerini bildirirmisiniz.

cem yılmaz · 12 Haziran 2008

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

cem yılmaz · 13 Haziran 2008

size daha yardımcı olması için çalışma sayfamı gönderiyorum hocam

Korhan Ayhan · 13 Haziran 2008

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?

Korhan Ayhan · 13 Haziran 2008

Selamlar,

Üstteki mesajımdaki dosyada bazı değişiklikler yaptım. Kontrol edermisiniz.

cem yılmaz · 13 Haziran 2008

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?

Korhan Ayhan · 13 Haziran 2008

Selamlar,

27 nolu başlıktaki dosyada gerekli değişiklikleri yaptım. İncelermisiniz.

Ayhan Ercan · 13 Haziran 2008

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&#252;h&#252;r No daha &#246;nce g&#252;ncellenmi&#351;tir!", vbCritical, "UYARI"
    End If
[/COLOR][/B]Else
MsgBox "Aran&#305;lan M&#252;h&#252;r No Bulunamad&#305;..!!", vbCritical, "M&#220;H&#220;R NO"
End If
End Sub

cem yılmaz · 13 Haziran 2008

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

Ayhan Ercan · 13 Haziran 2008

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&#252;h&#252;r No daha &#246;nce g&#252;ncellenmi&#351;tir!", vbCritical, "UYARI"
        End If
    Else
        MsgBox "Aran&#305;lan M&#252;h&#252;r No Bulunamad&#305;..!!", vbCritical, "M&#220;H&#220;R NO"
    End If
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
Textbox2.SetFocus
End Sub

cem yılmaz · 13 Haziran 2008

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..

Ayhan Ercan · 13 Haziran 2008

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..

Sevindim .

İyi Çalışmalar...

cem yılmaz · 14 Haziran 2008

Ş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?

Ayhan Ercan · 15 Haziran 2008

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 &#246;nce" & w.Offset(0, -1).Value & _
            " M&#252;h&#252;r No ile girilmi&#351;tir." & Chr(13) & _
            "Yine de g&#252;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&#252;h&#252;r No daha &#246;nce g&#252;ncellenmi&#351;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&#252;h&#252;r No daha &#246;nce g&#252;ncellenmi&#351;tir!", vbCritical, "UYARI"
                End If
        End If
    Else
        MsgBox "Aran&#305;lan M&#252;h&#252;r No Bulunamad&#305;..!!", vbCritical, "M&#220;H&#220;R NO"
    End If
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox2.SetFocus
End Sub

sayfadan combobox'a veri aktarımı

cem yılmaz

cem yılmaz

Orion1

Uzman

cem yılmaz

Orion1

Uzman

cem yılmaz

Korhan Ayhan

Administrator

cem yılmaz

cem yılmaz

Korhan Ayhan

Administrator

Korhan Ayhan

Administrator

cem yılmaz

Korhan Ayhan

Administrator

Ayhan Ercan

Özel Üye

cem yılmaz

Ayhan Ercan

Özel Üye

cem yılmaz

Ayhan Ercan

Özel Üye

cem yılmaz

Ayhan Ercan

Özel Üye