Bul ve yerleştir.

[serif11]

Arkadaşlar tekrar selam.
Adım adım gidiyorum.
İkinci adım şöyle:
Combobox1'de firmayı seçiyorum
Textbox1'e parça no
Textbox2'ye miktarı girip Stoğa Ekle butonuna basıyorum.
Bu girdiğimiz parça no ve miktarı combox1'deki seçili firma sayfasının A sütunundaki parça nosunu bularak B sütunundaki değerin üstüne toplasın.
Girilen parça yeni ise onu da listenin en sonuna yazsın.
Sayfalardaki parça no baz alınarak KÜÇÜKTEN BÜYÜĞE sıralasın.
Umarım anlatabilmişimdir.
Şimdiden teşekkürlet

 

[Ömer BARAN]

Sorularınızı örnek belgeyle desteklerseniz daha hızlı ve net sonuca ulaşabilirsiniz diye düşünüyorum.
Varsa, kullanılan Userform/kodların örnek belge içerisinde olmasını sağlayınız.
Örnek belge özellikleri ve örnek belge yükleme yöntemine ilişkin açıklama, cevabımın altındaki İMZA bölümünde var.
.

 

[Ömer]

Merhaba,

Ömer Bey'in bahsettiği gibi, sorularınızı örnek dosya ile desteklerseniz daha hızlı ve kesin çözümler alabilirsiniz.

Bu şekilde deneyin.

Private Sub CommandButton1_Click()
    
    Dim syf As String, c As Range, son As Long
    
    syf = ComboBox1.Value
    
    If syf = "" Then Exit Sub
    
    With Sheets(syf)
        Set c = .[A:A].Find(TextBox1.Text, , xlValues, xlWhole)
        If Not c Is Nothing Then
            .Cells(c.Row, "B") = .Cells(c.Row, "B") + TextBox2.Text
        Else
            son = .Cells(Rows.Count, "A").End(xlUp).Row + 1
            .Cells(son, "A") = TextBox1.Text
            .Cells(son, "B") = TextBox2.Text
            .Range("A2:B" & son + 1).Sort .Range("A2")
        End If
    End With
    
End Sub

.

 

[serif11]

Söylenecek söz bulamıyorum.
Nefes kesici.
Çok çok çok çoooooooooookkkk teşekkür ederim.
Tanrım kalbinizden geçeni versin

 

[Ömer]

Rica ederim, iyi çalışmalar.

 

[serif11]

Ömer Bey.
Dediğim gibi adım adım gidiyoruz.
Son bir adım kaldı.
Ufak bir aksilik meydana geldi.
Stok girişi yaparken eğer girilen parça listede yoksa yeni bir parça olarak kaydediyor.
Ben, verdiğiniz kodlardan hareketle;
.Cells(c.Row, "B") = .Cells(c.Row, "B") + TextBox2.Text
satırındaki kısmı
.Cells(c.Row, "B") = .Cells(c.Row, "B") - TextBox2.Text
şeklinde düzenleyip bunu da stok çıkışı olarak kullandım ve işlev gördü.
Fakat;
Stok girişindeki olay yani, yeni bir parça no girilirse yeni kayıt olarak alıyor ya çıkışta da aynı işlemi yapıyor. Girilen parça no yoksa bunu da yeni parça gibi kaydediyor. Bunu önlemek için;
Else
son = .Cells(Rows.Count, "A").End(xlUp).Row + 1
.Cells(son, "A") = TextBox1.Text
.Cells(son, "B") = TextBox2.Text
.Range("A2:B" & son + 1).Sort .Range("A2")

satırlarını kaldırdım ve istediğimi elde ettim.
İsteğim burada başlıyor.
Eğer girdiğimiz parça no yoksa "Parça Bul" bölümünde yaptığımız gibi "bu no'da parça bulunmamaktadır" gibisinden uyarı vermesini ve uyarıyı verdikten sonra combobox ve textboxlardaki bilgilerin silinmesiniistiyorum.
"Parça Bul" daki kodlardan hareketle bir şeyler yapayım dedim, başaramadım (BECEREMEDİM yani)
Son bir yardımınızı daha bekliyorum.

 

[Ömer]

Sildiğiniz bölüme Else kalacak şekilde aşağıdaki kodları ekleyin.

MsgBox TextBox1 & " Nolu Parça Listede Yok", , "excel.web.tr"
ComboBox1 = "": TextBox1 = "": TextBox2 = ""

.

 

[serif11]

Budur...
Tekrar tekrar ve çok çok çok çooooooooooooooooooookkkkkkkkkkkkkkkkkkkkkkkkkkkk
teşekkürler.......

 

[Onurcan06]

usta benım sorunum ctrl h yaptıktan sonra virgülleri noktaya çeviriyorum bir kısmı değişiyor fakat bir kısmı noktadan sonra oca kas gıbı ayları yazıyo nıye anlamadım yardımcı olabılırmısınız

 

[Ömer]

usta benım sorunum ctrl h yaptıktan sonra virgülleri noktaya çeviriyorum bir kısmı değişiyor fakat bir kısmı noktadan sonra oca kas gıbı ayları yazıyo nıye anlamadım yardımcı olabılırmısınız

Merhaba,

Çalışmanıza verileri almadan önce Excel seçenekleri gelişmiş sekmesinden sistem ayıraçlarını değiştirmeniz gerekir. Bu şekilde istediğinizi yapabilirsiniz.

Linkte detaylı açıklama mevcuttur.

http://www.excel.web.tr/f60/excelin...mayan-verilerin-bicimini-duzeltme-t83843.html

.