yusuf.or
Yeni Üye
Merhaba;
Aşağıdaki formül ile bir hücreyi seçtiğimde sayfadaki bazı bilgileri diğer sayfaya istediğim yere kaydettiriyorum. Bu kodu yıllardır sorunsuz kullanıyorum.
Private Sub Worksheet_selectionChange(ByVal Target As Range)
If Intersect(Target, Range("c3123")) Is Nothing Then Exit Sub
i = Sheets("MALI_KAY").Cells(65536, 1).End(xlUp).Row + 1
Sheets("MALI_KAY").Cells(i, 1).Value = Sheets("MALI_ISLM").Cells(2, 3).Value
Sheets("MALI_KAY").Cells(i, 2).Value = Sheets("MALI_ISLM").Cells(3, 3).Value
Sheets("MALI_KAY").Cells(i, 3).Value = Sheets("MALI_ISLM").Cells(1003, 3).Value
Sheets("MALI_KAY").Cells(i, 4).Value = Sheets("MALI_ISLM").Cells(2010, 3).Value
Sheets("MALI_KAY").Cells(i, 5).Value = Sheets("MALI_ISLM").Cells(3015, 3).Value
Sheets("MALI_KAY").Cells(i, 6).Value = Sheets("MALI_ISLM").Cells(3117, 3).Value
Sheets("MALI_KAY").Cells(i, 7).Value = Sheets("MALI_ISLM").Cells(3118, 3).Value
Sheets("MALI_KAY").Cells(i, 8).Value = Sheets("MALI_ISLM").Cells(3119, 3).Value
Sheets("MALI_KAY").Cells(i, 9).Value = Sheets("MALI_ISLM").Cells(3120, 3).Value
Sheets("MALI_KAY").Cells(i, 10).Value = Sheets("MALI_ISLM").Cells(3121, 3).Value
Sheets("MALI_KAY").Cells(i, 11).Value = Sheets("MALI_ISLM").Cells(3122, 3).Value
Range("C3,C1003,C2010,C3015,C3117,C3118,C3119,C3120,C3121,C3122").Select
Selection.ClearContents
Range("C2").Select
End Sub
Şu an ihtiyacım olan ise aynı sayfada başka bir hücre seçildiğinde de benzer şekilde başka bazı verilerin diğer sayfaya kaydolması. Bununla ilgili kendim aşağıdaki gibi bir şeyler yapmaya çalıştım ama çalıştıramadım bir türlü. Aşağıdaki kodlarda hata nerededir? Nasıl olması gerekir?
Şimdiden çok teşekkür ederim.
Private Sub Worksheet_selectionChange(ByVal Target As Range)
If Intersect(Target, Range("c3123")) Is Nothing Then Exit Sub
i = Sheets("MALI_KAY").Cells(65536, 1).End(xlUp).Row + 1
Sheets("MALI_KAY").Cells(i, 1).Value = Sheets("MALI_ISLM").Cells(2, 3).Value
Sheets("MALI_KAY").Cells(i, 2).Value = Sheets("MALI_ISLM").Cells(3, 3).Value
Sheets("MALI_KAY").Cells(i, 3).Value = Sheets("MALI_ISLM").Cells(1003, 3).Value
Sheets("MALI_KAY").Cells(i, 4).Value = Sheets("MALI_ISLM").Cells(2010, 3).Value
Sheets("MALI_KAY").Cells(i, 5).Value = Sheets("MALI_ISLM").Cells(3015, 3).Value
Sheets("MALI_KAY").Cells(i, 6).Value = Sheets("MALI_ISLM").Cells(3117, 3).Value
Sheets("MALI_KAY").Cells(i, 7).Value = Sheets("MALI_ISLM").Cells(3118, 3).Value
Sheets("MALI_KAY").Cells(i, 8).Value = Sheets("MALI_ISLM").Cells(3119, 3).Value
Sheets("MALI_KAY").Cells(i, 9).Value = Sheets("MALI_ISLM").Cells(3120, 3).Value
Sheets("MALI_KAY").Cells(i, 10).Value = Sheets("MALI_ISLM").Cells(3121, 3).Value
Sheets("MALI_KAY").Cells(i, 11).Value = Sheets("MALI_ISLM").Cells(3122, 3).Value
Range("C3,C1003,C2010,C3015,C3117,C3118,C3119,C3120,C3121,C3122").Select
Selection.ClearContents
Range("C2").Select
End If
If Intersect(Target, Range("P3123")) Is Nothing Then Exit Sub
j = Sheets("MALI_KAY").Cells(65536, 1).End(xlUp).Row + 1
Sheets("MALI_KAY").Cells(j, 1).Value = Sheets("MALI_ISLM").Cells(2, 16).Value
Sheets("MALI_KAY").Cells(j, 12).Value = Sheets("MALI_ISLM").Cells(3, 16).Value
Sheets("MALI_KAY").Cells(j, 3).Value = Sheets("MALI_ISLM").Cells(1003, 16).Value
Sheets("MALI_KAY").Cells(j, 13).Value = Sheets("MALI_ISLM").Cells(2010, 16).Value
Sheets("MALI_KAY").Cells(j, 5).Value = Sheets("MALI_ISLM").Cells(3015, 16).Value
Sheets("MALI_KAY").Cells(j, 9).Value = Sheets("MALI_ISLM").Cells(3120, 16).Value
Sheets("MALI_KAY").Cells(j, 10).Value = Sheets("MALI_ISLM").Cells(3121, 16).Value
Sheets("MALI_KAY").Cells(j, 11).Value = Sheets("MALI_ISLM").Cells(3122, 16).Value
Range("p3,p1003,p2010,p3015,p3117,p3118,p3119,p3120,p3121,p3122").Select
Selection.ClearContents
Range("p2").Select
End Sub
Aşağıdaki formül ile bir hücreyi seçtiğimde sayfadaki bazı bilgileri diğer sayfaya istediğim yere kaydettiriyorum. Bu kodu yıllardır sorunsuz kullanıyorum.
Private Sub Worksheet_selectionChange(ByVal Target As Range)
If Intersect(Target, Range("c3123")) Is Nothing Then Exit Sub
i = Sheets("MALI_KAY").Cells(65536, 1).End(xlUp).Row + 1
Sheets("MALI_KAY").Cells(i, 1).Value = Sheets("MALI_ISLM").Cells(2, 3).Value
Sheets("MALI_KAY").Cells(i, 2).Value = Sheets("MALI_ISLM").Cells(3, 3).Value
Sheets("MALI_KAY").Cells(i, 3).Value = Sheets("MALI_ISLM").Cells(1003, 3).Value
Sheets("MALI_KAY").Cells(i, 4).Value = Sheets("MALI_ISLM").Cells(2010, 3).Value
Sheets("MALI_KAY").Cells(i, 5).Value = Sheets("MALI_ISLM").Cells(3015, 3).Value
Sheets("MALI_KAY").Cells(i, 6).Value = Sheets("MALI_ISLM").Cells(3117, 3).Value
Sheets("MALI_KAY").Cells(i, 7).Value = Sheets("MALI_ISLM").Cells(3118, 3).Value
Sheets("MALI_KAY").Cells(i, 8).Value = Sheets("MALI_ISLM").Cells(3119, 3).Value
Sheets("MALI_KAY").Cells(i, 9).Value = Sheets("MALI_ISLM").Cells(3120, 3).Value
Sheets("MALI_KAY").Cells(i, 10).Value = Sheets("MALI_ISLM").Cells(3121, 3).Value
Sheets("MALI_KAY").Cells(i, 11).Value = Sheets("MALI_ISLM").Cells(3122, 3).Value
Range("C3,C1003,C2010,C3015,C3117,C3118,C3119,C3120,C3121,C3122").Select
Selection.ClearContents
Range("C2").Select
End Sub
Şu an ihtiyacım olan ise aynı sayfada başka bir hücre seçildiğinde de benzer şekilde başka bazı verilerin diğer sayfaya kaydolması. Bununla ilgili kendim aşağıdaki gibi bir şeyler yapmaya çalıştım ama çalıştıramadım bir türlü. Aşağıdaki kodlarda hata nerededir? Nasıl olması gerekir?
Şimdiden çok teşekkür ederim.
Private Sub Worksheet_selectionChange(ByVal Target As Range)
If Intersect(Target, Range("c3123")) Is Nothing Then Exit Sub
i = Sheets("MALI_KAY").Cells(65536, 1).End(xlUp).Row + 1
Sheets("MALI_KAY").Cells(i, 1).Value = Sheets("MALI_ISLM").Cells(2, 3).Value
Sheets("MALI_KAY").Cells(i, 2).Value = Sheets("MALI_ISLM").Cells(3, 3).Value
Sheets("MALI_KAY").Cells(i, 3).Value = Sheets("MALI_ISLM").Cells(1003, 3).Value
Sheets("MALI_KAY").Cells(i, 4).Value = Sheets("MALI_ISLM").Cells(2010, 3).Value
Sheets("MALI_KAY").Cells(i, 5).Value = Sheets("MALI_ISLM").Cells(3015, 3).Value
Sheets("MALI_KAY").Cells(i, 6).Value = Sheets("MALI_ISLM").Cells(3117, 3).Value
Sheets("MALI_KAY").Cells(i, 7).Value = Sheets("MALI_ISLM").Cells(3118, 3).Value
Sheets("MALI_KAY").Cells(i, 8).Value = Sheets("MALI_ISLM").Cells(3119, 3).Value
Sheets("MALI_KAY").Cells(i, 9).Value = Sheets("MALI_ISLM").Cells(3120, 3).Value
Sheets("MALI_KAY").Cells(i, 10).Value = Sheets("MALI_ISLM").Cells(3121, 3).Value
Sheets("MALI_KAY").Cells(i, 11).Value = Sheets("MALI_ISLM").Cells(3122, 3).Value
Range("C3,C1003,C2010,C3015,C3117,C3118,C3119,C3120,C3121,C3122").Select
Selection.ClearContents
Range("C2").Select
End If
If Intersect(Target, Range("P3123")) Is Nothing Then Exit Sub
j = Sheets("MALI_KAY").Cells(65536, 1).End(xlUp).Row + 1
Sheets("MALI_KAY").Cells(j, 1).Value = Sheets("MALI_ISLM").Cells(2, 16).Value
Sheets("MALI_KAY").Cells(j, 12).Value = Sheets("MALI_ISLM").Cells(3, 16).Value
Sheets("MALI_KAY").Cells(j, 3).Value = Sheets("MALI_ISLM").Cells(1003, 16).Value
Sheets("MALI_KAY").Cells(j, 13).Value = Sheets("MALI_ISLM").Cells(2010, 16).Value
Sheets("MALI_KAY").Cells(j, 5).Value = Sheets("MALI_ISLM").Cells(3015, 16).Value
Sheets("MALI_KAY").Cells(j, 9).Value = Sheets("MALI_ISLM").Cells(3120, 16).Value
Sheets("MALI_KAY").Cells(j, 10).Value = Sheets("MALI_ISLM").Cells(3121, 16).Value
Sheets("MALI_KAY").Cells(j, 11).Value = Sheets("MALI_ISLM").Cells(3122, 16).Value
Range("p3,p1003,p2010,p3015,p3117,p3118,p3119,p3120,p3121,p3122").Select
Selection.ClearContents
Range("p2").Select
End Sub