önceki sayfaya veri gönderme

[Crazy Drake]

aşağıdaki kodla aktif sayfadan 1 numaralı sayfaya veri gönderiyorum bu kodu diğer sayfalardada kullanabilmem için aktif sayfadan bir önceki sayfaya bu verileri nasıl gönderebilirim.

Sheets("1").Range("B1").Value = Range("C9").Value
Sheets("1").Range("B2").Value = Range("C5").Value
Sheets("1").Range("B3").Value = Range("C4").Value
Sheets("1").Range("B4").Value = Range("C10").Value
Sheets("1").Range("B5").Value = Range("C12").Value
Sheets("1").Range("B6").Value = Range("C13").Value
Sheets("1").Range("B7").Value = Range("C29").Value
Sheets("1").Range("B8").Value = Range("G22").Value
Sheets("1").Range("B9").Value = Range("G23").Value
Sheets("1").Range("B10").Value = Range("C14").Value
Sheets("1").Range("B14:B16").Value = Range("I5:J7").Value

 

[uzmanamele]

merhaba
aktif sayfadan bir önceki sayfa derken, sekme sıralamasında bir önceki midir yoksa bir önce aktif olan sayfa mıdır?
sıralamada bir önceki ise ya daha sonra sekme sıraları değişirse ne olacak?
bir önce aktif olan sayfa ise yine benzer problemle karşılaşabilirsiniz.

fikir vermesi açısından bu kodları deneyiniz

Sub deneme()
syf_nereden = InputBox("nereden?")
syf_nereye = InputBox("nereye?")
Sheets(syf_nereye).Range("B1").Value = Sheets(syf_nereden).Range("C1").Value
End Sub

 

[Crazy Drake]

sıralamadaki bir önceki sayfa yerleri değişmiyor sabit

 

[janveljan]

Bu kodları kullanabilirsiniz.

Sub aktar()
i = ActiveSheet.Index - 1
If i = 0 Then Exit Sub
Sheets(i).Range("B1").Value = Range("C9").Value
Sheets(i).Range("B2").Value = Range("C5").Value
Sheets(i).Range("B3").Value = Range("C4").Value
Sheets(i).Range("B4").Value = Range("C10").Value
Sheets(i).Range("B5").Value = Range("C12").Value
Sheets(i).Range("B6").Value = Range("C13").Value
Sheets(i).Range("B7").Value = Range("C29").Value
Sheets(i).Range("B8").Value = Range("G22").Value
Sheets(i).Range("B9").Value = Range("G23").Value
Sheets(i).Range("B10").Value = Range("C14").Value
Sheets(i).Range("B14:B16").Value = Range("I5:J7").Value
End Sub

 

[Crazy Drake]

tamamdır. oldu çok teşekkürler

 

[Mx@Raid]

arkadaşlar bir işlemin gerçekleşmesi için illa buton mu oluşturmak gerekiyor.
makroları girip tanımlanan ölçüdtleri hangi sayfaya gönderecekse işlemi yaptıktan sonra diğer sayfada görmek mümkün değil mi
mesela 1. sayfada ben veriyi girdiğimde otomatik olarak diğer sayfaya veriyi aktarsa olmuyor mu?
bunu makrosuz olarak yapabiliyoruz. örneğin sayfa ikinin c1 hücresine =BİRLEŞTİR(BİLGİ!C7;BİLGİ!G7;BİLGİ!E7;BİLGİ!D7;BİLGİ!F7;BİLGİ!C13) yazdığımızda otomatik olarak diğer sayfaya atıyor bunu makro yazarken butonla aktarma yapmadan yazamazmıyız?

 

[janveljan]

Sayfaların kendi olayları vardır. Worksheet_Change veya WorksheetSelection_Change gibi. Kodları buralara yazdığınızda butona basmaya gerek kalmadan da bu kodlar çalışır.

 

[Crazy Drake]

örnek olarak

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
i = ActiveSheet.Index - 1
If i = 0 Then Exit Sub
Sheets(i).Range("B1").Value = Range("C9").Value
End Sub