otomatik makro kayit

Katılım
11 Mayıs 2006
Mesajlar
10
iyi geceler arkadaslar. bana otomatik kayıt yapacak bi makro lazım. yardım edebilirseniz sevinirim
 
Katılım
11 Mayıs 2006
Mesajlar
10
mesela b8 hücresinin değeri 20 olunca a4 hücresindeki isimle o sayfayı kaydedecek. yardımlarınız için şimdiden teşekkürler.
 

Ali

Uzman
Katılım
21 Temmuz 2005
Mesajlar
7,897
Excel Vers. ve Dili
İş:Excel 2016-Türkçe
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$B$8" And Target.Value = 20 Then
Cells.Select
Selection.Copy
Worksheets.Add.Name = Range("A4")
ActiveSheet.Paste
ActiveWorkbook.Save
End If
End Sub
 

AS3434

Özel Üye
Katılım
13 Ocak 2005
Mesajlar
1,820
Excel Vers. ve Dili
M.Office/Excel 2007 Türkçe
İyi günler , Bu konuyla ilgili, Kullanmış olduğum bir makro var:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
ActiveSheet.Name = Range("E2").Value

End Sub
Bu makro E2 hücresindeki veriyi sayfa adı olarak veriyor. Yalnız bu kodu aktif sayfanın kod sayfasına yazınca çalışıyor. Sıkıntım şu; her ilave ettiğim sayfaya bu kodu yazmak zorunda kalıyorum . Bunun kolay bir yolu yok mu? Yani yeni bir sayfa eklediğimde kod otomatik çalışsın ve sayfa adı versin?
 

Ali

Uzman
Katılım
21 Temmuz 2005
Mesajlar
7,897
Excel Vers. ve Dili
İş:Excel 2016-Türkçe
Alt+F11 ile VBA düzenleyiciyi açıp Thisworkbook'a

Aşağıdaki kodları yapıştırın.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
ActiveSheet.Name = Range("E2").Value
End Sub
 

AS3434

Özel Üye
Katılım
13 Ocak 2005
Mesajlar
1,820
Excel Vers. ve Dili
M.Office/Excel 2007 Türkçe
sn. fructose
Bir işi bilmemek kötü bir şey. Yukarda yazdığım kodlara kırk takla attırdım ama yapamadım. Bütün olay "ByVal Sh As Object" burda bitiyormuş. İyiki varsınız ve paylaşıyorsunuz.
Teşekkür ederim.
 
Katılım
11 Mayıs 2006
Mesajlar
10
ben dosya adını belirle kısmına mesela B18 hücresindeki ismi koymak istiyorum.
 
Üst