otomatik makro kayit

[karagoz.e]

iyi geceler arkadaslar. bana otomatik kayıt yapacak bi makro lazım. yardım edebilirseniz sevinirim

 

[karagoz.e]

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.

 

[Kemal Demir]

Açıklayacı küçük bir örnek dosya yollarmısınız

 

[Ali]

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]

İ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]

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]

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.

 

[karagoz.e]

gösterdiğiniz ilgiye cok tesekkur ederim arkadaslar

 

[karagoz.e]

elimde şu şekilde bir makro var

 

[karagoz.e]

ben dosya adını belirle kısmına mesela B18 hücresindeki ismi koymak istiyorum.