Combobox Hk

[bulentkars]

Arkadaşlar Merhaba

Ekte gönderdiğim dosya da istediğim şeyi yazdım yardımlarınızı bekliyorum.şimdiden teşekürler.

 

[Orion1]

Dosyanız ekte.

Private Sub CommandButton1_Click()
Dim alan As Range
If Cells(65536, ComboBox1.ListIndex + 1).End(xlUp).Row = 1 Then Exit Sub
Set alan = Range(Cells(2, ComboBox1.ListIndex + 1), Cells( _
Cells(65536, ComboBox1.ListIndex + 1).End(xlUp).Row, ComboBox1.ListIndex + 1))
alan.Cut
Range("D2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

 

[bulentkars]

evren bey böyle değil sutunu seçtüğümde seçtiğim sutunu kes yapıp d sutununa yapıştıracak tabıkı d nın ustune değil sutun ekleyıp yapıştıracak

 

[Orion1]

comboboxtan Mak Değer seçtiğimde J Sütununu Kes yapsın ve D sutununa yapıştırsın.

evren bey böyle değil sutunu seçtüğümde seçtiğim sutunu kes yapıp d sutununa yapıştıracak tabıkı d nın ustune değil sutun ekleyıp yapıştıracak

Yukarıdaki açıklamnzıda öyle demiyordunuz ama.
Bende o dediğiniz şekilde yaptım.Eğer baştan sonsöylediğinizi söyleseydiniz o şekilde yapardım.Size kolay gelsin.Başka bir arkadaş yardımcı olacaktır.

 

[bulentkars]

Kusura bakmayın Evren bey yinede ilgi ve alakanız için çok teşekkür ederim...