Bir sayfadan diğer sayfaya hücre kopyalamak

[emre_oktay]

ekteki dosyada gelir ve gider sayfalarındaki bazı hücreleri kasa sayfasına kopyalamak istiyorum nasıl yapabilirim??

 

[fedeal]

Tam olarak anlamasamda gider sayfası sarı hücrelerini tıklayın istediiniz bu olabilirmi?

 

[emre_oktay]

evet yapmak istediğim bu çok teşekkürler yalnız durumu ödendiyse tutarı ödenen kısmına ödenecekse ödenecek kısmına yazsın istiyorum şuanda tatrı ödenen sütununa durumunu ödenecek sütununa kopyalıyor bu düzeltilebilir mi? birde eklenen satırın rengini değiştirebilir miyiz?

 

[fedeal]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 <> Empty Then
For Each fCell In Selection
cvp = MsgBox("SATIRI KAYDETMEK İSTİYORMUSUNUZ ?", vbYesNo, " FEDEAL ")
If cvp = vbNo Then
Else
For i = 1 To 7
ActiveCell.Offset(0, i).Interior.ColorIndex = 6
Next
fed = Sheets("kasa").Range("b65536").End(xlUp).Row + 1
Sheets("kasa").Range("b" & fed).Value = ActiveCell.Offset(0, 1).Value
Sheets("kasa").Range("d" & fed).Value = ActiveCell.Offset(0, 2).Value
If ActiveCell.Offset(0, 7).Value = "ödendi" Or ActiveCell.Offset(0, 7).Value = "ÖDENDİ" Or ActiveCell.Offset(0, 7).Value = "Ödendi" Then
Sheets("kasa").Range("g" & fed).Value = ActiveCell.Offset(0, 6).Value
Else
Sheets("kasa").Range("h" & fed).Value = ActiveCell.Offset(0, 6).Value
End If
End If
Next fCell
End If
End Sub

sayfa kodlarını üstekilerle değiştirin

 

[emre_oktay]

benzer şekilde gelir kısmınıda förmulleyebilir miyiz ??

 

[fedeal]

2. mesajdaki dosya güncellendi.
dikkat etmeniz gereken bir konu var bununla bir kaç satırı seçip aktara bilirsiniz ama yalnışlıkla a sütununu seçerseniz 65536 kez mesaj kutusu çıkacaktır

 

[emre_oktay]

aklımda tutarım onu son teşekkirler ancak bi sorun daha var oda gelir sayfasından tutar sütununukopyalıyor tutarı değil kazancı kopyalacaktı bide bunu sormadan otomatik yazılır yazılmaz atacak şekilde değiştirebilir miyiz?

 

[fedeal]

aklımda tutarım onu son teşekkirler ancak bi sorun daha var oda gelir sayfasından tutar sütununukopyalıyor tutarı değil kazancı kopyalacaktı bide bunu sormadan otomatik yazılır yazılmaz atacak şekilde değiştirebilir miyiz?

ohalde gelir sayfasındaki kırmızı kodları 9 yapın

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 <> Empty Then
For Each fcell In Selection
cvp = MsgBox("SATIRI KAYDETMEK İSTİYORMUSUNUZ ?", vbYesNo, " FEDEAL ")
If cvp = vbNo Then
Else
For i = 1 To 11
ActiveCell.Offset(0, i).Interior.ColorIndex = 6
Next
fed = Sheets("kasa").Range("b65536").End(xlUp).Row + 1
Sheets("kasa").Range("b" & fed).Value = ActiveCell.Offset(0, 1).Value
Sheets("kasa").Range("c" & fed).Value = ActiveCell.Offset(0, 2).Value
If ActiveCell.Offset(0, 11).Value = "alındı" Or ActiveCell.Offset(0, 11).Value = "ALINDI" Or ActiveCell.Offset(0, 11).Value = "Alındı" Then
Sheets("kasa").Range("e" & fed).Value = ActiveCell.Offset(0, 8).Value
Else
Sheets("kasa").Range("f" & fed).Value = ActiveCell.Offset(0, 8).Value
End If
End If
Next fcell
End If
End Sub

iyi çalışmalar.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 <> Empty Then
For Each fcell In Selection
cvp = MsgBox("SATIRI KAYDETMEK İSTİYORMUSUNUZ ?", vbYesNo, " FEDEAL ")
If cvp = vbNo Then
Else
For i = 1 To 11
ActiveCell.Offset(0, i).Interior.ColorIndex = 6
Next
fed = Sheets("kasa").Range("b65536").End(xlUp).Row + 1
Sheets("kasa").Range("b" & fed).Value = ActiveCell.Offset(0, 1).Value
Sheets("kasa").Range("c" & fed).Value = ActiveCell.Offset(0, 2).Value
If ActiveCell.Offset(0, 11).Value = "alındı" Or ActiveCell.Offset(0, 11).Value = "ALINDI" Or ActiveCell.Offset(0, 11).Value = "Alındı" Then
Sheets("kasa").Range("e" & fed).Value = ActiveCell.Offset(0, 8).Value
Else
Sheets("kasa").Range("f" & fed).Value = ActiveCell.Offset(0, 8).Value
End If
End If
Next fcell
End If
End Sub

sorgu çıkmasını istemezseniz kırmızı kodları silin (buarada uygulamak açıklamaktan kolay ama amaç balık tutmayı öğretmek),saygılar.

 

[emre_oktay]

bu kodları tıklama gerektirmeyecek şekilde düzenlemek mümkün müdür? yani gelir yada gidere yazılanlar anında kasaya yazılsın yada silinenler silinsin şeklinde

 

[fedeal]

form kullanmalısınız ondada bir buton olur kodların mantıgı son dolu satırın altındaki satıra yazıyor.diyelimki tarihi giriyoruz a yazdık kodlar çalıştı kasa sayfasına atar.form kullanarak yazdıklarınızı iki sayfaya aynı anda atabilirsiniz.