Koşullu Kopyalama

[mustafa1205]

Ekte bulunan çaışmamda da açıklama yapmaya çalıştım. "D" sütununda ki son dolu satıra kod yardımı ile koşullu kopyalama yapmak istiyorum. Teşekkür ederim.

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton1_Click()
Dim sat1 As Long, sat2 As Long
sat1 = Cells(Rows.Count, "D").End(xlUp).Row + 1
If OptionButton1.Value = True Then
    sat2 = Cells(Rows.Count, "E").End(xlUp).Row
     Range("E2:E" & sat2).Copy Range("D" & sat1)
    GoTo son
End If
If OptionButton2.Value = True Then
    sat2 = Cells(Rows.Count, "F").End(xlUp).Row + 1
    Range("F2:F" & sat2).Copy Range("D" & sat1)
    GoTo son
End If
If OptionButton3.Value = True Then
    sat2 = Cells(Rows.Count, "G").End(xlUp).Row + 1
    Range("G2:G" & sat2).Copy Range("D" & sat1)
    GoTo son
End If
If OptionButton4.Value = True Then
    sat2 = Cells(Rows.Count, "H").End(xlUp).Row + 1
    Range("H2:H" & sat2).Copy Range("D" & sat1)
    GoTo son
End If
MsgBox "Lütfen Seçiminizi yapınız!", vbCritical, "U Y A R I"
son:
Application.CutCopyMode = False
Unload Me
End Sub

 

[mustafa1205]

Hocam ellerin dert görmesin mükemmel olmuş. User form açılınca yapılan seçim sonrasında tamam a bastığımızda kopyalama yapmasıyla beraber user formun da kapanmasını sağlayabilir miyiz ?

 

[Orion1]

Hocam ellerin dert görmesin mükemmel olmuş. User form açılınca yapılan seçim sonrasında tamam a bastığımızda kopyalama yapmasıyla beraber user formun da kapanmasını sağlayabilir miyiz ?

2 numaralı mesajdan dosyanız tekrar indiriniz.

 

[mustafa1205]

Sayın Orion Hocam çok teşekkür ediyorum tam istediğim gibi olmuş. Göstermiş olduğunuz ilgi ve yardımlarınız için çok teşekkür ederim. İyi günler