palet dağılımı makro ile

[EXTRANET]

sayın üstatlar.
ekteki dosyada palet dağıtım listesi almak istiyorum.

palet sayfasına palet nosunu yazdığımda diğer bilgilerin otomatk olarak dökülmesini istiyorum

yardımlarınız için teşekür ederim.

 

[asi_kral]

sayın üstatlar.
ekteki dosyada palet dağıtım listesi almak istiyorum.

palet sayfasına palet nosunu yazdığımda diğer bilgilerin otomatk olarak dökülmesini istiyorum

yardımlarınız için teşekür ederim.

Merhaba
Örnek olarak verileri girer misiniz_?
Manuel olarak yazın bakalım ne gibi veriler ona göre işlem yapalım.

 

[EXTRANET]

merhaba

örnek dosya ekledim

 

[asi_kral]

merhaba

örnek dosya ekledim

Merhaba
Palet Sayfasının kod bölümüne kopyalayın ve deneyin.
J13 hücresindeki değişikliğe göre çalışır ve aktarım yapar.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
'Konu       :   Yazılan Palet Noya Göre Ürünleri Aktar
'Mail       :   m.batu.1967@gmail.com
'Coder By   :   asi_kral_1967
If Intersect(Target, Range("J13")) Is Nothing Then Exit Sub
Dim asi, kral, a
Set asi = Sheets("Sevk")
a = 22
Range("B22:Z36").ClearContents
For kral = 11 To asi.Range("K" & Rows.Count).End(xlUp).Row
If asi.Cells(kral, "K") = Range("J13") Then
If a <= 36 Then
Cells(a, "D") = asi.Cells(kral, "D"): Cells(a, "I") = asi.Cells(kral, "F")
Cells(a, "P") = asi.Cells(kral, "G"): Cells(a, "S") = asi.Cells(kral, "I")
Cells(a, "X") = asi.Cells(kral, "J"): a = a + 1: End If: End If: Next
MsgBox "Aktarım Tamamlandı", vbInformation, "asi_kral_1967"
End Sub

Dosyanız ekte

 

[EXTRANET]

4 gündür uğraşıyorum beceremedim de diyebilirim Allah Razı olsun iyiki varsın.

 

[asi_kral]

4 gündür uğraşıyorum beceremedim de diyebilirim Allah Razı olsun iyiki varsın.

Kolay Gelsin.