Otomatik birim fiyat gelmesi hakkında

[by_türk]

Arkadaşlar merhaba,

ekteki dosyada bulunan açıklamalara göre bana yardımcı olur musunuz?

a hücresine yazdığım malzeme kodu ile birlikte b hücresine a hücresindeki malzemin birim fiyatının gelmesi"

yardımlarınızı bekler saygılar dilerim.

 

[meslan]

Merhaba
Ekteki örneği inceleyiniz.

 

[by_türk]

teşekkür ederim. istediğim oldu. şimdi ben bu kendi malzeme kodlarımı sizin malzeme bölümünzemi girmem gerekiyor. ve sonsuz giriş yapa biliyormuyum.

 

[meslan]

teşekkür ederim. istediğim oldu. şimdi ben bu kendi malzeme kodlarımı sizin malzeme bölümünzemi girmem gerekiyor. ve sonsuz giriş yapa biliyormuyum.

Evet. Aynı şekilde malzemeleri giriniz.
İhtiyacınıza cevap verecek kadar giriş yapabilirsiniz.

 

[by_türk]

evet. Aynı şekilde malzemeleri giriniz.
Ihtiyacınıza cevap verecek kadar giriş yapabilirsiniz.

yanlız silme işlemini yaparken hata veriyor. Ben makroların olduğu sayfaya atıyor. Yardımcı olur musunuz?

 

[meslan]

yanlız silme işlemini yaparken hata veriyor. Ben makroların olduğu sayfaya atıyor. Yardımcı olur musunuz?

Kodların başına

On Error Resume Next
ekleyin.

 

[by_türk]

ekleyemedim. daha doğrsu beceremedim. yardımcı olur musunuz? yanlız diğer bi sorunda hanhi kodu yazarsam yazim, hep aynı malzemeyi çıkarıyor.

 

[Orion1]

ekleyemedim. daha doğrsu beceremedim. yardımcı olur musunuz? yanlız diğer bi sorunda hanhi kodu yazarsam yazim, hep aynı malzemeyi çıkarıyor.

Gerekli düaeltmeleri yaptım.
Dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target.Rows, [C:C]) Is Nothing Then Exit Sub
[B][COLOR="Red"]On Error Resume Next[/COLOR][/B]
Set s1 = Sheets("MALZEME")
Brf = WorksheetFunction.Match(Target.Value, s1.[A:A],[B][COLOR="Red"] 0[/COLOR][/B])
[B][COLOR="Red"]Cells(Target.Row, 4).Value = ""
Cells(Target.Row, 6).Value = ""[/COLOR][/B]
Cells(Target.Row, 4).Value = Sheets("MALZEME").Cells(Brf, 2).Value
Cells(Target.Row, 6).Value = Sheets("MALZEME").Cells(Brf, 3).Value
End Sub

 

[by_türk]

teşekkür ederim büyüksüünnn)

 

[by_türk]

otomatik verinin gelmesi sadeece 1 nolu sayfa için yapılmış. diğer sayfalar için nasıl yapabiliriz....

 

[by_türk]

Diğer sayfalarda nasıl göstereceğiz bu makroları. onu da halletme iknanınız var mı?

 

[by_türk]

Gerekli düaeltmeleri yaptım.
Dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target.Rows, [C:C]) Is Nothing Then Exit Sub
[B][COLOR="Red"]On Error Resume Next[/COLOR][/B]
Set s1 = Sheets("MALZEME")
Brf = WorksheetFunction.Match(Target.Value, s1.[A:A],[B][COLOR="Red"] 0[/COLOR][/B])
[B][COLOR="Red"]Cells(Target.Row, 4).Value = ""
Cells(Target.Row, 6).Value = ""[/COLOR][/B]
Cells(Target.Row, 4).Value = Sheets("MALZEME").Cells(Brf, 2).Value
Cells(Target.Row, 6).Value = Sheets("MALZEME").Cells(Brf, 3).Value
End Sub

diğer sayfalar için nasıl yapabiliriz..?

 

[Orion1]

diğer sayfalar için nasıl yapabiliriz..?

Ne yapmak istediğinizi anlamadım.

 

[by_türk]

excell kitapçığında bulunan sayfalarda bu makronun geçerli olmasını istiyorum. üst sayfada arkadşımız makro ile otomatik veri gelmesini sağladı ama tek sayfa için olmuş ben diğer sayfalara da uygulamak istiyorum

 

[by_türk]

belli satırdan sonra yazmış olduğum malzeme kodlarını otomatik olarak istediğim sayfaya alamıyorum. yardımlarınızı bekliyorum..

 

[by_türk]

makrolu sayfada satır aralığı

makrolu sayfda satır aralığını nasıl verebiliriz. sayfa ekte mevcut. evren beyin ve meslan beyin yardımları ile sayfa düzene girdi. ama sonuç olarak henüz bitmedi.
arkadaşlar benim sizden ricam ekte ki kitapçıkta bulunan malzeme sayfasının içinde bulunan kodların ilgili sayflara yazdığımda gelmesi. anca a9 dan sonra yazılan malzeme kodlarını ekrana getirmiyor. yanlış algılamadımsa, hücre aralığı sorunu yaşıyorum. makroları bozmamak için kurcalamadım. a1-a10000 e kadar girişimi sağlarmısınız? değerli üstadlarımm:biggrin:

 

[Orion1]

makrolu sayfda satır aralığını nasıl verebiliriz. sayfa ekte mevcut. evren beyin ve meslan beyin yardımları ile sayfa düzene girdi. ama sonuç olarak henüz bitmedi.
arkadaşlar benim sizden ricam ekte ki kitapçıkta bulunan malzeme sayfasının içinde bulunan kodların ilgili sayflara yazdığımda gelmesi. anca a9 dan sonra yazılan malzeme kodlarını ekrana getirmiyor. yanlış algılamadımsa, hücre aralığı sorunu yaşıyorum. makroları bozmamak için kurcalamadım. a1-a10000 e kadar girişimi sağlarmısınız? değerli üstadlarımm:biggrin:

Dosyanız eklenmemiş.

 

[by_türk]

dosyam şimdi ekte

dosyamız şimdi ekte saygılar

 

[Orion1]

Şimdi olay şu.
Malzeme sayfasında A sütununda bazı değerler sayı,bazı değerler sayı görünümde string,Bazı değerler ise metin.
Oysa siz Sayfa1de sayısal bir değer girtdiğinizde a sütununda ki sayı sandığınız değer metin olduğu için sayı ile metin eşelşmediği için bulamıyor.Malzememe sayfasında A sütununa metin biçiminde sayısal değer girmezseniz sorun olmaz.
Zaten o hücreleri kenarı yeşil işaretle hatalı olduğu belirtmiş excel.

 

[meslan]

Merhaba
Kodu değiştirin

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target.Rows, [C:C]) Is Nothing Then Exit Sub
On Error Resume Next
Set s1 = Sheets("MALZEME")
Set brf = s1.[A:A].Find(Target.Value, LookAt:=xlWhole)
If Not brf Is Nothing Then
Cells(Target.Row, 4).Value = ""
Cells(Target.Row, 6).Value = ""
Cells(Target.Row, 4).Value = Sheets("MALZEME").Cells(brf.Row, 2).Value
Cells(Target.Row, 6).Value = Sheets("MALZEME").Cells(brf.Row, 3).Value
Else
MsgBox "Malzeme Bulunamadı.", vbCritical, Application.UserName
End If
End Sub