Başka Sayfadan Veril Almak

[kontto]

Arkadaşlar bir excel sayfasında illere göndermiş olduğum malzeme listesini tutuyorum. Bu listede iki sayfa var biri VERI sayfası diğeri URUN sayfasıdır. URUN sayfasında tuttuğum malzemelerin VERI sayfasında A1 hücresine yazdığım İle gönderdiğim ürünlerin sıralanmasıdır. Dosyayı ekte gönderdim yardımcı olursanız sevinirim. Teşekkür ederim.

 

[mbldn]

Arkadaşlar bir excel sayfasında illere göndermiş olduğum malzeme listesini tutuyorum. Bu listede iki sayfa var biri VERI sayfası diğeri URUN sayfasıdır. URUN sayfasında tuttuğum malzemelerin VERI sayfasında A1 hücresine yazdığım İle gönderdiğim ürünlerin sıralanmasıdır. Dosyayı ekte gönderdim yardımcı olursanız sevinirim. Teşekkür ederim.

selam;
ekte gönderdiğim dosyaya bakabilir misiniz işinizi görür mü?

 

[İhsan Tank]

Arkadaşlar bir excel sayfasında illere göndermiş olduğum malzeme listesini tutuyorum. Bu listede iki sayfa var biri VERI sayfası diğeri URUN sayfasıdır. URUN sayfasında tuttuğum malzemelerin VERI sayfasında A1 hücresine yazdığım İle gönderdiğim ürünlerin sıralanmasıdır. Dosyayı ekte gönderdim yardımcı olursanız sevinirim. Teşekkür ederim.

merhaba

Sub İstediğin_Verileri_Listele()
Dim c As Range, sat As Long, ilkadres As Variant
Sheets("VERI").Range("A3:I" & Rows.Count).ClearContents
sat = 3
With Sheets("ÜRÜN").Range("F:F")
Set c = .Find(Sheets("VERI").Range("A1"), LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
ilkadres = c.Address
Do
Sheets("VERI").Cells(sat, "A") = Sheets("ÜRÜN").Cells(c.Row, "A")
Sheets("VERI").Cells(sat, "B") = Sheets("ÜRÜN").Cells(c.Row, "B")
Sheets("VERI").Cells(sat, "C") = Sheets("ÜRÜN").Cells(c.Row, "C")
Sheets("VERI").Cells(sat, "D") = Sheets("ÜRÜN").Cells(c.Row, "D")
Sheets("VERI").Cells(sat, "E") = Sheets("ÜRÜN").Cells(c.Row, "E")
Sheets("VERI").Cells(sat, "F") = Sheets("ÜRÜN").Cells(c.Row, "F")
Sheets("VERI").Cells(sat, "G") = Sheets("ÜRÜN").Cells(c.Row, "G")
Sheets("VERI").Cells(sat, "H") = Sheets("ÜRÜN").Cells(c.Row, "H")
Sheets("VERI").Cells(sat, "I") = Sheets("ÜRÜN").Cells(c.Row, "I")
sat = sat + 1
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> ilkadres
End If
End With
MsgBox Sheets("VERI").Range("A1").Value& & " VERİLER'İ AKTARILDI", vbInformation
End Sub

bu kod işinizi görür mü_?

 

[kontto]

Sizlere çok teşekkür ediyorum. Ellerinize sağlık

 

[İhsan Tank]

Sizlere Çok teşekkür ediroyurum. Ellerinize sağlık

rica ederim
:yazici: