Mevcut koda ilave için yardım lütfen

[hakpin]

Sub Düğme17_Tıklat()
Sayfa = ("STOK")
son = WorksheetFunction.CountA(Sheets(Sayfa).[C3:C600]) + 1
Sheets(Sayfa).Cells(son + 2, "D") = [BK4]
Sheets(Sayfa).Cells(son + 2, "C") = [BK6]
Sheets(Sayfa).Cells(son + 2, "F") = [BK10]
Sheets(Sayfa).Cells(son + 2, "G") = [BK12]
Sheets(Sayfa).Cells(son + 2, "H") = [BK14]
End Sub
Değerli Hocalarım;
Ekteki dosyamda ;Yeni ürün girişinde ürün listede mevcut ise Bu hücrelerdeki yeni değerleri ürünün bulunduğu satırın üzerine yazmasını istiyorum Ürün listede olmayan yeni bir ürün ise mevcut kodda olduğu gibi boş olan en alt satıra atmasını istiyorum.
Yardımcı olursanız çok sevinirim.Daha önceden yardımlarını esirgemeyen tüm Forum Hocalarıma buradan teşşekkür ediyorum.

 

[Mahmut Kök]

aşağıdaki gibi deneyiniz.

Sub Düğme17_Tıklat()
sayfa = ("STOK")

Set son = Sheets(sayfa).[d3:d600].Find([bk4])
If son Is Nothing Then
son = [c600].End(3).Row + 1
Else
son = Sheets(sayfa).[d3:d600].Find([bk4]).Row
End If

Sheets(sayfa).Cells(son + 2, "D") = [bk4]
Sheets(sayfa).Cells(son + 2, "C") = [BK6]
Sheets(sayfa).Cells(son + 2, "F") = [BK10]
Sheets(sayfa).Cells(son + 2, "G") = [BK12]
Sheets(sayfa).Cells(son + 2, "H") = [BK14]

 

[hakpin]

sayın mesleki göstermiş olduğunuz ilgiden dolayı çok teşekkür eder işlerinizde kolaylıklar dilerim

 

[hakpin]

Sayın Mesleki yazmış olduğunuz kodu uyguladım ,listede seçili ürünün satırına değilde değerleri alt satırı atmakta.rca etsem kontrol edebilirmisiniz

 

[hakpin]

Sayın Mesleki yazmış olduğunuz kodu uyguladım ,listede seçili ürünün satırına değilde değerleri arada herhangi bir satıra tekrar atmakta.Rİca etsem kontrol edebilirmisiniz.

 

[Mahmut Kök]

Kusura bakmayın, alt tarafa dikkat etmemişim.

Sheets(sayfa).Cells(son + 2, "D") = [bk4]
Sheets(sayfa).Cells(son + 2, "C") = [BK6]
Sheets(sayfa).Cells(son + 2, "F") = [BK10]
Sheets(sayfa).Cells(son + 2, "G") = [BK12]
Sheets(sayfa).Cells(son + 2, "H") = [BK14]


son + 2 ' lerdeki +2 ' leri silerek dener misiniz? Aşağıdaki gibi olsun.

Sheets(sayfa).Cells(son, "D") = [bk4]
....

 

[hakpin]

Sayın mesleki, kusur ne demek ,asıl siz kusura bakmayın,sizleri meşgül ediyoruz.ilginiz için çok teşekkür ederim,İşleriniz kolay gelsin.

 

[hakpin]

Sayın Mesleki , Kodu uyguladım, Ürün listede mevcut ise bütün değerleri ürünün eski değerlerinin üzerine yazmasını istiyorum. Yok listede olmayan yeni bir ürünse boş olan ilk sıraya atsın.Son gönderdiğiniz kodu uyguladım. aynı ürünü tekrar araya alarak veya en alta ikinci defa yazıyor.Kontrol edebilirseniz çok memnun olurum.Kolay gelsin.

 

[Mahmut Kök]

Tekrar kusura bakmayın...

Gönderdiğim yanıtların saatine bakarsanız, epeyce geç vakitlere denk geldiğinden dolayı, dikkatimi verememiştim.

Set son = Sheets(sayfa).[d3:d600].Find([bk4])
If son Is Nothing Then
son = Sheets(sayfa).[c600].End(3).Row + 1
Else
son = Sheets(sayfa).[d3:d600].Find([bk4]).Row
End If


kodlara kırmızı yeri eklerseniz, sorununuz çözülür kanısındayım. Ürünün var olup olmadığını, ürünün ismine bakarak tespit ediyor, koduna bakmıyor yani. O yüzden, var olan ürünleri mutlaka açılan kutudan seçerek çağırınız, elle yazmayınız. Umarım sorununuz çözülür. İyi çalışmalar.