Aktif Sütunu Aktar veya Kopyala

Katılım
30 Kasım 2006
Mesajlar
411
Excel Vers. ve Dili
Excel 2007 - Türkçe
Altın Üyelik Bitiş Tarihi
05.07.2020
Arkadaşlar Aktif sütun aktarması ile ilgili çalışmanın içersinden çıkamadım.
H3 sütunundan başlayarak hangi sütun seçilirse o sütunun A sütununa aktarılması gerekmektedir. Şimdiden İlginiz işin şükranlarımı sunuyorum...
 

Ekli dosyalar

Son düzenleme:

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
43,482
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Dosyanızdaki renklendirme için kullandığınız kodu aşağıdaki şekilde değiştirip denermisiniz.

Kod:
Option Explicit
 
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    Cells.Interior.ColorIndex = xlColorIndexNone
    ActiveCell.EntireColumn.Interior.ColorIndex = 19 'Sütun Rengi
    ActiveCell.EntireRow.Interior.ColorIndex = 17 ' Satır Rengi
    ActiveCell.Cells.Interior.ColorIndex = 4 ' Hücre Rengi
[COLOR=red]    If Target.Column > 7 And Target.Row > 2 Then Cells(Target.Row, "A") = Target
[/COLOR]End Sub
 
Katılım
30 Kasım 2006
Mesajlar
411
Excel Vers. ve Dili
Excel 2007 - Türkçe
Altın Üyelik Bitiş Tarihi
05.07.2020
aktif sütun aktar

Korhan Arkadaşımın emeğine sağlık Ancak; Aktif Sütunu AktarButonu ile A Sütununa verileri aktarmam gerekmektedir...
 

Ekli dosyalar

Katılım
30 Kasım 2006
Mesajlar
411
Excel Vers. ve Dili
Excel 2007 - Türkçe
Altın Üyelik Bitiş Tarihi
05.07.2020
seç aktar

H3 sütunundan başlayarak hangi hücre seçilirse o hücreye ait sütunun A sütununa aktarılması gerekmektedir. Aktarbutonu veya OptionButton Vb. (seç Aktar) Şimdiden İlginiz işin şükranlarımı sunuyorum...
 

Ekli dosyalar

Katılım
30 Kasım 2006
Mesajlar
411
Excel Vers. ve Dili
Excel 2007 - Türkçe
Altın Üyelik Bitiş Tarihi
05.07.2020
Sütunu Aktar

H3 sütunundan başlayarak hangi sütun seçilirse o hücreye ait tüm sütunu A sütununa aktar butonu ile aktarılması gerekmektedir.

Şimdiden İlginiz işin şükranlarımı sunuyorum...
 

Ekli dosyalar

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,759
Excel Vers. ve Dili
Excel 2019 Türkçe
Kod:
Sub aktar()
    [A3:A500] = [H3:H500].Value
End Sub
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
43,482
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Aktar isimli makronuzu aşağıdaki şekilde değiştirip denermisiniz. Ayrıca bir önceki mesajımda kırmızı renkle eklemiş olduğum koduda silin. Kodu 10.000 satır olarak düzenledim. Dilerseniz isteğinize göre arttırabilirsiniz.

Kod:
Option Explicit
 
Sub Aktar()
    Range("A3:A10000").Value = Range(Cells(3, ActiveCell.Column), Cells(10000, ActiveCell.Column)).Value
End Sub
 
Katılım
30 Kasım 2006
Mesajlar
411
Excel Vers. ve Dili
Excel 2007 - Türkçe
Altın Üyelik Bitiş Tarihi
05.07.2020
H3, sütunundan başlayarak hangi HÜCRE seçilirse o hücreye ait tüm sütunu A sütununa aktar butonu ile aktarılması gerekmektedir.

Sub aktar()
Seçilen hücrenin 3 satırndan başlayarak tüm sütunu = [A3:A500]. Value
End Sub
Gibi bir işlem
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
43,482
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Ömer bey,

Lütfen aynı konular için ayrı başlıklar açmayınız. Açmış olduğunuz iki başlık birleştirilmiştir.
 
Üst