açılır kutudaki seçilen malzemenin satırına aktarma

[sdegirmenci]

Kıymetli Arkadaşlar, Açılan kutudaki malzemelerden seçili olan malzemenin satırına adet hücresindeki değeri atmamız mümkünmü.Bu kodda takıldım.Yardımlarınızı bekliyorum.Ekteki dosyada açıklama mevcut.Yardımlarınız için şimdiden teşekkür ediyorum.Saygılarımla

 

[N.Ziya Hiçdurmaz]

yanıt

Sub aktar()
Set s1 = Sheets("GİRİŞ")
Set s2 = Sheets("DEPO")
For i = 4 To s2.[d65536].End(3).Row
If s1.[d4] = s2.Range("d" & i) Then
s1.[ba4].Copy
s2.Range("d" & i).Offset(0, 2).PasteSpecial
End If
Next
Application.CutCopyMode = False
End Sub

 

[sdegirmenci]

Sayın V.Basic For Applications
ben derdimi anlatamadım herhalde yazmış olduğunuz kodu bir türlü çalıştıramadım.Benim istediğim giriş sayfasında ki "ba4" hücresindeki değeri depo sayfasında "j" sütununda açılır kutudaki ismin satırına atması. tekrar incelerseniz sevinirim.Saygılarımla

 

[Orion1]

Aşağıdaki kodları denermisiniz?

Sub aktar()
Sheets("depo").Cells(Sheets("GİRİŞ").Range("A1").Value + 3, "J").Value = _
Sheets("GİRİŞ").Range("BA4").Value
MsgBox "AKTARMA YAPILDI"
End Sub

 

[N.Ziya Hiçdurmaz]

Gerekli düzeltme yapılmıştır.
Sub aktar()
Set s1 = Sheets("GİRİŞ")
Set s2 = Sheets("DEPO")
For i = 3 To s2.[d65536].End(3).Row
If s1.[d4] = s2.Range("d" & i) Then
s1.[ba4].Copy
s2.Range("d" & i).Offset(0, 6).PasteSpecial
End If
Next
Application.CutCopyMode = False
End Sub

 

[sdegirmenci]

Sayın Sezar yazmış olduğunuz kod çalışıyor ilginize teşekkür ederim.
Sayın V.Basic For Applications sizede ilginizden dolayı çok teşekkür ederim.İşleriniz kolay gelsin.

 

[Orion1]

Rica ederim.
İyi çalışmalar.

 

[sdegirmenci]

Sayın Üstad Sezar;
Beni bağişlayın belki çok oldum ama;Müşteri adını ise depo sayfasında "L" sütunuda 4 nolu satırdan her aktarışta bir artarak yazmasını istiyorum.Kod kopyaladım ama yalnızca bir defa yazıyor her aktarmada bir alta yazmıyor.Şimdiden teşekkür ederim.

 

[Orion1]

Merhaba.
Şimdi sorduğunuz soru ilk sorduğunuzdan değişik.
Akatarılan veriler devemlı 1 alt satıramı yazılacak?
Belirsizlik var.
Satış adedi açılır kutudaki ismin karşısındaki yere olacakken ,Müşteri adı 4ncü satırdan başlayarak alt altamı yazılacak.
Eğer öyle olursa açılır kutuya ait olan malzemeye ait isim olmayacaktır.

 

[Orion1]

Merhaba.
Aşağıdaki kodları kullanın.
kodları çalıştırmadan önce;
depo sayfasında B10:L65536 aralığını seçip sağ klik içeriği temizleye tıklayın.

Sub Düğme25_Tıklat()
Dim son As Long
son = Sheets("depo").Cells(65536, "L").End(xlUp).Row
Sheets("depo").Cells(Sheets("GİRİŞ").Range("A1").Value + 3, "J").Value = _
Sheets("GİRİŞ").Range("BA4").Value
Sheets("depo").Cells(son + 1, "L").Value = Sheets("GİRİŞ").Range("AB4").Value
MsgBox "AKTARMA YAPILDI"
End Sub