Aktarılan isim listede mevcut ise üzerine yazdırmak

[sdegirmenci]

Değerli Hocalarım;
Lİsteden başka sayfadaki tabloya aktardığım isim tabloda daha önceden mevcut ise; üzerine yazsın, Listede bulunmayan yeni bir isim ise en alta atsın . Ben kendimce uğraştım ama bir türlü başaramadım.Dosya üzerinde ayrıntılı açıklamam var. İlgi gösterir yardımcı olursanız çok sevinirim.Şimdiden teşekkür ederim.

 

[meslan]

Sn. sdegirmenci ekteki çalışmayı inceleyiniz.

 

[sdegirmenci]

Sayın meslan;
Ekte gönderdiğiniz dosya açılmıyor tekrar bakarsanız sevinirim.

 

[meslan]

Nasıl yani. forumda mı açılmıyor. Bende açılıyor. bir problem yok.

 

[sdegirmenci]

Sayın meslan;
İlginize çok teşekkür ederim,Şimdi açıldı.İstediğim gibi .Çok sağolun işleriniz kolay gelsin.

 

[meslan]

Birşey değil arkadaşım. Hayırlı geceler.

 

[sdegirmenci]

sayın meslan ;
Çok oluyorum ama; gönderdiğiniz kodları proğramıma tam uyarlayamadım. Proğramımı göndersem tekrar bakmanız mümkünmü

 

[sdegirmenci]

Proğramım ektedir, İlginize tekrar teşekkür ederim

 

[meslan]

Sn. sdegirmenci dosyanız ekte inceleyiniz. Tekrar görüşelim.

 

[sdegirmenci]

Sayın Meslan;
Kod bilgim fazla olmadığından dün gece ve bu gün sizin kodları proğramıma uyarlamaya çalıştım.En sonunda başardım zannediyorum.Kodlarınızı yalnızca tek yemek girişi ne değil soldaki çoklu girişteki düğmelerede uyarladım .Bulduğunuz hataya gelince gözünüzden kaçmamış.Belki bakarsınız diye son halini ekliyorum.Her şey için teşekkür ederim. Bilginize sağlık.

 

[hakpin]

Tabldot

Sayın Meslan , Proğram ektedir.
Hoşçakalın

 

[sdegirmenci]

sayın Meslan ; hakpin ismi sizi yanıltmasın İş yerimden gönderdiğimden "sdegirmenci" adını açmamışım.

 

[meslan]

Sn.sdegirmenci ComboBox4_Change olayını şu şekilde değiştir.
Kod:
Private Sub ComboBox4_Change()
Application.ScreenUpdating = False
[c23] = ComboBox4.Value
Range("L55:L64").Select
Selection.ClearContents
Range("bk4").Select
On Error Resume Next
For i = 27 To 39
If Cells(i, "P").Value = "Kg." Or Cells(i, "P").Value = "Lt." Then
Cells(i, "M").NumberFormat = "#,##0.000"
Else
Cells(i, "M").NumberFormat = "###0"
End If
Next i
End Sub

 

[sdegirmenci]

Sayın meslan;
Kodları uyguladım, tamamdır yalnız yan tarafta da 3 satır var orada "P" ler "AK", "M" ler "AH" . Bu koda onu iilave edebilirmiyiz.
If Cells(i, "P").Value = "Kg." Or Cells(i, "P").Value = "Lt." Then
Cells(i, "M").NumberFormat = "#,##0.000"

 

[meslan]

For i = 27 To 39
If Cells(i, "P").Value = "Kg." Or Cells(i, "P").Value = "Lt." Then
Cells(i, "M").NumberFormat = "#,##0.000"
Else
Cells(i, "M").NumberFormat = "###0"
End If
If Cells(i, "AK").Value = "Kg." Or Cells(i, "AK").Value = "Lt." Then
Cells(i, "AH").NumberFormat = "#,##0.000"
Else
Cells(i, "AH").NumberFormat = "#,##0"
End If
Next i

 

[sdegirmenci]

Sayın meslan ;
Çok teşekkür ederim.İşleriniz kolay gelsin.

 

[meslan]

Bir şey değil kardeş. Ben de size başrılar dilerim.

 

[sdegirmenci]

tabldot

Sayın meslan;
Merhaba, Lütfen bana bıktım senden demeyin ne olur.Proğram bitti sayılır.Ancak Kiler girişte devamlı hata vermekte.Sebebini anlayamadım.İlk giriş aktarıyor ama ikinci mümkün değil.Boş zamanınızda bakabilirseniz çok sevinirim.

 

[meslan]

Sn.sdegirmenci dosyanızda istenilen düzenlemeler yapılmıştır.

 

[sdegirmenci]

Sayın meslan çok teşekkür ederim.Bilginize sağlık Yalnız kilerden çıkar olayında seçilen malzemenin stok sayfasında bir üstündeki malzemenin çıkışını yapmakta , yani yukarı ya doğru "bir adet" kayma var. Bakabilirmisiniz.Size özel mesajımı okursanız sevinirim. Selamlar