aktarma

[demhatozcelik]

Merhaba arkadaşlar

excel ana sayfaya girdiğim verileri ilgili sayfaların son boş hücrelerine aktarılmasını istiyorum. sayfanın içinde gerekli açıklamalar var. bunu nasıl yapabiliriz.

 

[Levent Menteşoğlu]

Aşağıdaki kodu ANA SAYFA da oluşturacağınız bir butona bağlayarak çalıştırın. Her sayfanın B sütununda sıra no oluşturmak için yazdığınız formülleri silebilirsiniz. Kod bu noyu kendisi vermektedir. Böylece dosyanızı formül yükündende kurtarmış olursunuz.

Not:Sayfa isimlerinin "ANA SAYFA" B sütunundaki Kurum isimleri ile aynı olmasına dikkat edin.

[vb:1:f9ce4fa62e]Sub aktar()
On Error Resume Next
Set s1 = Sheets("ANA SAYFA")
For a = 5 To 17 Step 2
If s1.Cells(a, "d") <> 0 Then
ad = s1.Cells(a, "b")
Set s2 = Sheets(ad)
say = WorksheetFunction.CountA(s2.[c11:c504]) + 11
s2.Cells(say, "b") = say - 10
s2.Cells(say, "c") = s1.Cells(a, "d")
s2.Cells(say, "d") = s1.Cells(a, "f")
s2.Cells(say, "f") = s1.Cells(a, "h")
End If
Next
MsgBox "AKTARMA TAMAMLANDI"
End Sub
[/vb:1:f9ce4fa62e]

 

[demhatozcelik]

Merhaba Sayın Leventm
ben yapamadım hata veriyor. dosya içine uygulayıp ekleyebilirmisiniz.