kopyala-taşı ve yapıştır komutu

[oguz demirbas]

günaydın ustalarım:

Komut 1 düğmesine aşağıda yazdığım olayı yaptırmak istiyorum:

Sayfa 1 de mouse ile seçtiğim değişken alanları Sayfa 2 deki A1 hücresinden başlayarak B1'e C1'e D1'e... kopyalamak yada yapıştırmak istiyorum .

Eğer A1 dolu ise A2 'ye
Eğer A2 dolu ise A3'e
Eğer A3 dolu ise A4'e ......... kopyala yada yapıştırmayı ihmal etmesin.

yukarıdaki metni kod olarak nasıl yazabilirim?

teşekkürler :hey:

 

[Levent Menteşoğlu]

Sorunuzla ilgili bir örnek dosya eklermisiniz. Ayrıca seçilen alanlar ardışıkmı yoksa çok farklı yerlerdemi? Bu durumlarıda dosyanızda mutlaka detaylandırın.

 

[oguz demirbas]

BİRAZ GEÇ FARK ETTİM ...... (ardışık olarak seçiyorum)
DOSYA EKTEDİR....

 

[iggydarsa]

bu isinizi gorurmu bilmiyorum ama bir deneyin isterseniz

Sub aktar()
    Dim lastRow As Long
    Dim rng1 As Range
    Dim rng2 As Range
    
    lastRow = Sheets("SAYFA2").Range("A65536").End(xlUp).Row + 1
    Set rng1 = Range(ActiveCell.Address, ActiveCell.Offset(0, 3).Address)
    Set rng2 = Sheets("SAYFA2").Range("A" & lastRow)
    rng1.Copy rng2
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfa1 in kod sayfasına yazarak deneyin. Kod çift tıklama ile çalışmaktadır. Buton kullanmaya gerek yoktur. Sıra nosunun olduğu A sütunundaki hücreye çift tıkladığınızda kayıt sayfa2 ye aktarılacaktır.

[vb:1:c2c96888be]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Set s1 = Sheets("sayfa2")
sat = Selection.Cells.Row
say = WorksheetFunction.CountA(s1.[a2:a65536]) + 2
For a = 1 To 4
s1.Cells(say, a) = Cells(sat, a).Value
Next
End Sub
[/vb:1:c2c96888be]

 

[oguz demirbas]

mükemmel oldu........ :mutlu:

çok teşekkür ederim...

 

[oguz demirbas]

Aşağıdaki kodu sayfa1 in kod sayfasına yazarak deneyin. Kod çift tıklama ile çalışmaktadır. Buton kullanmaya gerek yoktur. Sıra nosunun olduğu A sütunundaki hücreye çift tıkladığınızda kayıt sayfa2 ye aktarılacaktır.

[vb:1:a645478c3b]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Set s1 = Sheets("sayfa2")
sat = Selection.Cells.Row
say = WorksheetFunction.CountA(s1.[a2:a65536]) + 2
For a = 1 To 4
s1.Cells(say, a) = Cells(sat, a).Value
Next
End Sub
[/vb:1:a645478c3b]

Sayfa 3 ve Sayfa 4 de göndermek istersem nasıl bir düzenleme yapmalıyım?

 

[Mahmut Bayram]

Eğer sayfa3 olacaksa aşağıdaki şekilde
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Set s1 = Sheets("sayfa3")
sat = Selection.Cells.Row
say = WorksheetFunction.CountA(s1.[a2:a65536]) + 2
For a = 1 To 4
s1.Cells(say, a) = Cells(sat, a).Value
Next
End Sub

Eğer sayfa4 olacaksa aşağıdaki şekilde
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Set s1 = Sheets("sayfa4")
sat = Selection.Cells.Row
say = WorksheetFunction.CountA(s1.[a2:a65536]) + 2
For a = 1 To 4
s1.Cells(say, a) = Cells(sat, a).Value
Next
End Sub

 

[oguz demirbas]

Mahmut Bey:

bütün bu kodları Sayfa1 'e yazacağım...?

Teşekkür ederim.