Seçili hücreyi yan hücreye kopyalama

[ikarushn]

sayın arkadaşlar seçili hücreden başka hücreye veri nasıl kopyalanır. basit bir şey lazım. a1 seçince b1,a2 seçince b2 kopyalayacak.


saygılar.

 

[Korhan Ayhan]

Sayfanızın kod bölümüne aşağıdaki kodu uygulayınız.

"A" sütununda veri olan hücrelere tıkladığınızda veriyi "B" sütununa kopyalar.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 1 Then
        If Target.Value <> "" Then Target.Copy Target.Offset(0, 1)
    End If
End Sub

 

[ikarushn]

Teşekkürler

elinize sağlık Korhan bey. bir sorum daha olacak. kopyalamaya ikinci sıradan başlamasın. birde a sütunundan b sütununa kopyalanırken b sütununda ilk 10 sıra boşsa a sütununda seçilen veri sırayla b deki boşluklara kaydedilsin istiyorum. koda ne eklemek gerek. ilginize teşekkürler.

saygılar.

 

[Korhan Ayhan]

Aşağıdaki gibi deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    If Intersect(Target, Range("A2:A" & Rows.Count)) Is Nothing Then Exit Sub
    If Target.Value <> "" Then Target.Copy Target.Offset(0, 1)
End Sub

 

[ikarushn]

Teşekkür

elinize sağlık korhan bey. Soruyu yanlış sordum sanırım. kod çalışıyor ama benim anlatmak istediğim; A sütununda herhangi bir satıra tıklandığında B sütununda boş olan satıra seçilen A sütunundaki verinin gitmesi. eğer b sütununda 1. satır boşsa 1., 4. satır boşsa 4.satıra yazılmalı. yani B sütunundaki boş satırları kontrol ederek kopyalama işlemini yapmasıydı. SAygılar.