makro ile sayfalara aktarma

[mergul]

iyi akşamlar, ekteki dosyada GİRİŞ sayfasında bulunan sarı renkli sütunlardaki verileri diğer sayfalara makro ile aktarmak istiyorum. aramama rağmen uygun bir çözüm bulamadım. ilgilenen abilerim olursa sevinirim.

 

[Emir Hüseyin Çoban]

. . .

Bu aktarma işlemi için sayfa isimlerinin hangi modelle ilişkilendirildiğini belirtmeniz gerekiyor.

. . .

 

[mergul]

hüseyin bey, dünde siz yardımcı olmuştunuz, aslına bakarsanız benim modellerin olduğu veriler sayfalarla ilişkilendirilecek durumda değil, örnek olarak bu modelleri verdim. verilerin ismi daha uzun ve bu yüzden forumda yer alan örneklere uyduramadım. acaba sayfalarla ilişkilendirilmesi şartmı?

 

[mergul]

hüseyin bey, kastettiğiniz hangi sayfa hangi model olacak ise ekli dosyada sütuna işledim, teşekkürler...

 

[Emir Hüseyin Çoban]

hüseyin bey, kastettiğiniz hangi sayfa hangi model olacak ise ekli dosyada sütuna işledim, teşekkürler...

. . .

Sub kod()
Application.ScreenUpdating = False
Sheets("GİRİŞ").Select

Sheets("BDO").Range("A2:F65536").ClearContents
Sheets("ÖZ").Range("A2:F65536").ClearContents
Sheets("İİ").Range("A2:F65536").ClearContents
Sheets("ÖA").Range("A2:F65536").ClearContents
Sheets("SOR").Range("A2:F65536").ClearContents
Sheets("MUA").Range("A2:F65536").ClearContents
Sheets("MNF").Range("A2:F65536").ClearContents
Sheets("DNŞ").Range("A2:F65536").ClearContents
Sheets("DİG").Range("A2:F65536").ClearContents

For i = 2 To [A65536].End(3).Row
If Cells(i, "A") <> "" Then

sayfaismi = Cells(i, "K")
sonsat = Sheets(sayfaismi).[A65536].End(3).Row + 1

Sheets(sayfaismi).Cells(sonsat, "A") = sonsat - 1
Sheets(sayfaismi).Cells(sonsat, "B") = Cells(i, "B")
Sheets(sayfaismi).Cells(sonsat, "C") = Cells(i, "C")
Sheets(sayfaismi).Cells(sonsat, "D") = Cells(i, "L")
Sheets(sayfaismi).Cells(sonsat, "E") = Cells(i, "N")
Sheets(sayfaismi).Cells(sonsat, "F") = Cells(i, "BB")
Else: End If
Next i

Application.ScreenUpdating = True
MsgBox " B i t t i "
End Sub

. . .

 

[mergul]

emeğinize sağlık, çok teşekkür ederim, sayenizde yeni yeni şeyler öğreniyorum...

 

[mergul]

hüseyin bey affınıza sığınarak bişey daha sormak istiyorum, diyelimki sayfalarda veri aldığı sütunlarda standart yok yani BDO sayfası 8 farklı sütundan veri alacak olsa yani A;B;C;D;E;F sütunu haricinde J sütunu K sütunu verilerini aktarmak istesek bu formül cevap verirmi?