Veri Aktarma

[kontto]

İyi Günler Arkadaşlar. Sizden istediğim. L14 Satırına ADANA yazdığım zaman VERI sayfasında bulunan ADANA sütununda bulunan miktarları ve karşılığnda bulunan malzemeyi BIRIM sayfasına aktarması. Biraz yapmaya çalıştım. Verileride aktarıyor. Ancak sadece ADANA da olan malzemeleri ve sayısını aktarmıyor. Genel malzeme sayılarını aktarıyor. Oysaki ben ADANA da ki malzemeleri ve orda kaçtane var onu istiyorum. Yardımcı olursanız sevinirim.

ÖRNEK DOSYA GÖNDERİYORUM

 

[asi_kral]

İyi Günler Arkadaşlar. Sizden istediğim. L14 Satırına ADANA yazdığım zaman VERI sayfasında bulunan ADANA sütununda bulunan miktarları ve karşılığnda bulunan malzemeyi BIRIM sayfasına aktarması. Biraz yapmaya çalıştım. Verileride aktarıyor. Ancak sadece ADANA da olan malzemeleri ve sayısını aktarmıyor. Genel malzeme sayılarını aktarıyor. Oysaki ben ADANA da ki malzemeleri ve orda kaçtane var onu istiyorum. Yardımcı olursanız sevinirim.

ÖRNEK DOSYA GÖNDERİYORUM

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub kriter_aktar()
'Konu       :   Belirlenmiş Birime Göre Aktarım
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Skype      :   m.batu.1967
'Coder By   :   asi_kral_1967
Dim s1 As Worksheet, s2 As Worksheet, s3 As Worksheet, _
asi As Long, a As Long, b As Long
Application.ScreenUpdating = False
Set s1 = Sheets("MISSON"): Set s2 = Sheets("VERI")
Set s3 = Sheets("BIRIM")
s3.Range("A4:D" & Rows.Count).ClearContents
b = 4
a = WorksheetFunction.Match(s1.Range("L14"), s2.Rows("1:1"), 0)
For asi = 2 To s2.Cells(Rows.Count, a).End(xlUp).Row
If s2.Cells(asi, a) <> Empty Then
s3.Cells(b, "A") = s2.Cells(asi, "A")
s3.Cells(b, "B") = s2.Cells(asi, "B")
s3.Cells(b, "C") = s2.Cells(asi, "C")
s3.Cells(b, "D") = s2.Cells(asi, a)
b = b + 1: End If: Next
Application.ScreenUpdating = True
MsgBox s1.Range("L14") & " Verilerini Listedim" & vbLf & Application.UserName, _
vbInformation, "asi_kral_1967"
End Sub

Dosyanız Ekte.

 

[kontto]

Allah c.c. razı olsun teşekkür ederim. Ama Malzemeyi ve Genel Miktarı aktarıyor. Oysa ben ilin kendisinde bulunan malzeme ve ildeki miktarının aktarılmasını istiyorum. Yardım ederseniz sevinirim

 

[asi_kral]

Allah c.c. razı olsun teşekkür ederim. Ama Malzemeyi ve Genel Miktarı aktarıyor. Oysa ben ilin kendisinde bulunan malzeme ve ildeki miktarının aktarılmasını istiyorum. Yardım ederseniz sevinirim

Yani ilin altında yazan miktarımı aktaracak bunu mu anlamalıyım.

 

[kontto]

Evet aynen dediğiniz gibi üstad

 

[kontto]

Bu konuda bilgisi olan Üstadlar acil yardımlarınızı bekliyorum

 

[asi_kral]

Bu konuda bilgisi olan Üstadlar acil yardımlarınızı bekliyorum

Üstteki kodu ve dosyayı güncelledim.

 

[kontto]

Teşekkür ederim

 

[asi_kral]

Teşekkür ederim

Kolay Gelsin.