makro ile verileri diger sayfalara aktar

[mergul]

iyi akşamlar,
ekteki dosya daha önce yardımlarınızla oluşturuldu, fakat şimdi benim dosyada açıkladıım üzere farklılaştırmaya gitmem gerekiyor, yardımcı olursanız sevinirim...

 

[Mustafa MUTLU]

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")
Sheets(sayfaismi).Cells(sonsat, "G") = Cells(i, "BC") ' Bu satırın eklemesi lazım..
Else: End If
Next i

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

 

[mergul]

peki o satırı ekleyince dier sayfalara da aynı veriyi eklemez mi? Ben eklemesini istemiyorum ve örnein "İİ" adlı sayfayada "GİRİŞ" sayfası BD sütunu verilerini eklemek istiyorum. olabilir mi?

 

[Mustafa MUTLU]

Sheets(sayfaismi).Cells(sonsat, "G") = Cells(i, "BC")

kırmızı renkli sayfaismi yerine hangi sayfaya yazmasını istiyorsan o sayfayı yazacaksın.

Sheets(İİ).Cells(sonsat, "G") = Cells(i, "BC") gibi

 

[mergul]

Mustafa bey, dediginizi yaptım ilk satırda kayma yaptırıyor, digerlerini getiriyor...

 

[Mustafa MUTLU]

sonsat = Sheets(sayfaismi).[A65536].End(3).Row + 1

Bu Kod satırları kontrol eder ve son boş satırı bulur.
A sütununu kontrol ediyor.
Tüm sayfalarda A sütununa değer girilmesi gerekir.
Bunun içinde
Sheets(sayfaismi).Cells(sonsat, "A") = sonsat - 1
Bu kod kullanılmıştır. (A sütununa sıra Numarası verir.)
Kayma yapmaması lazım...
A1 Hücresine bir değer yazınız mesela Sıra No gibi
A1 Hücresi boş ise kayma ondan olabilir.

 

[mergul]

Sheets(sayfaismi).Cells(sonsat, "G") = Cells(i, "BC")

kırmızı renkli sayfaismi yerine hangi sayfaya yazmasını istiyorsan o sayfayı yazacaksın.

Sheets(İİ).Cells(sonsat, "G") = Cells(i, "BC") gibi
__________________
MUSTAFA MUTLU
EXCEL 2003
Bir Teşekkür Yeter



Mustafa bey, kayma ekledigimiz son sütunun (mavi renkli BC sütununun) aktarıldıgı "İİ" sayfasında G2 ve G3 hücrelerinde oluyor. Sonraki hücreleri düzgün aktarıyor.