AS3434
Özel Üye
- Katılım
- 13 Ocak 2005
- Mesajlar
- 1,820
- Excel Vers. ve Dili
- M.Office/Excel 2007 Türkçe
Aşağıdaki makro ile TOPLAM sayfasındaki verileri F1 hücresindeki rakama göre sayfa adı vererek yeni bir sayfaya aktarıyorum.
Yapmak istediğim, aktarma işleminin sonunda yeni açılan sayfanın Q sütunundaki veriyi Toplam sayfasında B sütununa aktarmak. Yeşil yazılan kısma kadar makro güzel çalışıyor. Yeşil yazan yerden sonra nasıl bir düzenleme yapmam gerek?
Sub SAYFA_EKLE()
ActiveSheet.Unprotect
Application.ScreenUpdating = False
SAY = Worksheets.Count - 1
Sheets("TOPLAM").Select
Sheets("TOPLAM").Copy After:=Sheets("TOPLAM")
ActiveSheet.Shapes("Button 8").Delete
ActiveSheet.Name = Format(Sheets("TOPLAM").Range("F1").Value, "00")
ActiveSheet.[F1].Select
Selection.NumberFormat = "00"
ActiveSheet.Protect
Sheets("TOPLAM").Select
[F1] = [F1] + 1
Range("B7:B500,E7:F500").ClearContents
For X = 3
Sheets("X").Select
Sheets(X).Range("Q7:Q500").Select
Selection.Copy
Sheets("TOPLAM").Range("B7").Select
ActiveSheet.Paste
Application.ScreenUpdating True
ActiveSheet.Protect
End Sub
Yapmak istediğim, aktarma işleminin sonunda yeni açılan sayfanın Q sütunundaki veriyi Toplam sayfasında B sütununa aktarmak. Yeşil yazılan kısma kadar makro güzel çalışıyor. Yeşil yazan yerden sonra nasıl bir düzenleme yapmam gerek?
Sub SAYFA_EKLE()
ActiveSheet.Unprotect
Application.ScreenUpdating = False
SAY = Worksheets.Count - 1
Sheets("TOPLAM").Select
Sheets("TOPLAM").Copy After:=Sheets("TOPLAM")
ActiveSheet.Shapes("Button 8").Delete
ActiveSheet.Name = Format(Sheets("TOPLAM").Range("F1").Value, "00")
ActiveSheet.[F1].Select
Selection.NumberFormat = "00"
ActiveSheet.Protect
Sheets("TOPLAM").Select
[F1] = [F1] + 1
Range("B7:B500,E7:F500").ClearContents
For X = 3
Sheets("X").Select
Sheets(X).Range("Q7:Q500").Select
Selection.Copy
Sheets("TOPLAM").Range("B7").Select
ActiveSheet.Paste
Application.ScreenUpdating True
ActiveSheet.Protect
End Sub