Makro ekleme

[aspin]

Arkadaşlar merhaba

ekteki dosyada bir çalışma mevcut. Bu dosyada farklı 4 sayfaya kayıt yapılıyor. Bunların kayıtlarını tek birden yapabilmek istiyorum
dosya içerisinde daha iyi anlattığımı düşünütorum. Yardımcı olursanız sevinirim.

 

[asi_kral]

Merhaba
Kayıt Sayfasının kod bölümüne ekleyin ve deneyin.
A12 ( KAYDET ) seçtiğinizde otomatik verileri aktarır.

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
Dim SYF1 As Worksheet, STR As Long
If Intersect(Target, Range("A12")) Is Nothing Then _
Application.EnableEvents = True: Exit Sub
Set SYF1 = Sheets(Range("B1").Text)
STR = SYF1.Range("A" & Rows.Count).End(xlUp).Row + 1
SYF1.Cells(STR, "A") = Range("B2")
SYF1.Cells(STR, "B") = Range("B3")
SYF1.Cells(STR, "C") = Range("B4")
SYF1.Cells(STR, "D") = Range("B5")
SYF1.Cells(STR, "E") = Range("B6")
SYF1.Cells(STR, "F") = Range("B7")
SYF1.Cells(STR, "H") = Range("B8")
SYF1.Cells(STR, "I") = Range("B9")
SYF1.Cells(STR, "J") = Range("B10")
Application.EnableEvents = True
End Sub

Not : Kontrol Eklenmemiştir.

 

[aspin]

bişey olmadı
kayıt sayfası üzerinde sağ tıklayıp kod görüntüleme bölümü yapıştırdım.
doğruysa bişey olmadı

 

[asi_kral]

bişey olmadı
kayıt sayfası üzerinde sağ tıklayıp kod görüntüleme bölümü yapıştırdım.
doğruysa bişey olmadı

Eki İnceleyin.
A12 hücresi seçili ise başka bir hücreye geçin ve tekrar A12 hücresini seçin. Sonra hangi sayfayı istediyseniz o sayfayı kontrol ediniz.