Kullanıcı
- Katılım
- 28 Tem 2022
- Mesajlar
- 118
- Excel Versiyonu
- Excel 2016
- Excel Sürümü
- 64 Bit
- Excel Dili
- Türkçe
merhabalar
aşağıda bir kod düzeneğim mevcut. bu kodu ben A sütununda herhangi hücreye çift tıkladığımda bir shetten diğer sheete çift tıkladığım hücrenin satırdaki verilerini aktarıyor.
ben burda şunu yapmak istiyorum.
diyelimki a2 hücresine çift tıkladım a satırını aldı sheet ye kopyaladı
sonra kendisi otomatik işleme devam etsin. a3 hücresine ait satırı sanki çift tıklmamış gibi sheet2 ye aktarsın
sonra a4 hücresine ait satırı aktarsın
ta ki a sütununda boş hücreye denk gelene kadar bu işleme devam etsin.
bilgi ve yardımlarınızı rica ederim
If ActiveCell.Column = 1 Then
Son = S2.Cells(S2.Rows.Count, 1).End(3).Row + 1
S1.Range("A" & ActiveCell.Row & ":AL" & ActiveCell.Row).Copy S2.Range("A" & Son)
'ActiveCell.EntireRow.Delete
End If
aşağıda bir kod düzeneğim mevcut. bu kodu ben A sütununda herhangi hücreye çift tıkladığımda bir shetten diğer sheete çift tıkladığım hücrenin satırdaki verilerini aktarıyor.
ben burda şunu yapmak istiyorum.
diyelimki a2 hücresine çift tıkladım a satırını aldı sheet ye kopyaladı
sonra kendisi otomatik işleme devam etsin. a3 hücresine ait satırı sanki çift tıklmamış gibi sheet2 ye aktarsın
sonra a4 hücresine ait satırı aktarsın
ta ki a sütununda boş hücreye denk gelene kadar bu işleme devam etsin.
bilgi ve yardımlarınızı rica ederim
If ActiveCell.Column = 1 Then
Son = S2.Cells(S2.Rows.Count, 1).End(3).Row + 1
S1.Range("A" & ActiveCell.Row & ":AL" & ActiveCell.Row).Copy S2.Range("A" & Son)
'ActiveCell.EntireRow.Delete
End If
