Dört Sütunu Tek Sütunda Birleştirme...

[manly]

EK'te gönderdiğim dosyada ilk dört sütunu E sütununda tek olarak birleştirecek bir makro kodu istiyorum...Yardımlarınızı bekliyorum...

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton123_Click()
Dim i As Long, sat As Long
Range("E2:E65536").ClearContents
sat = Cells(65536, "A").End(xlUp).Row
For i = 2 To sat
    Cells(i, "E").Value = CStr(Cells(i, "A").Value) & "-" & _
    CStr(Cells(i, "B").Value) & "-" & CStr(Cells(i, "C").Value) & "-" & _
    CStr(Cells(i, "D").Value)
Next i
MsgBox "İşlem Tamamlanmıştır.", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[manly]

Hocam çok teşekkürler.. USER FORM çok hoş ve farede isminizin olması değişik bir özellik sanırım.. özel bir kod yazılımı mı?

 

[Orion1]

Hocam çok teşekkürler.. USER FORM çok hoş ve farede isminizin olması değişik bir özellik sanırım.. özel bir kod yazılımı mı?

userformun picture özelliğine daha önceden hazırladığım arka plan görünümlerinden koydum(jpg uzantılı resim dosyası).
fare imleci ise ,onuda daha önceden bir corsur hazırlama programında el resimli ico uzantılı dosyayı açıp yatım,ve özelliklerden fare resmimi onrdan seçtim.ayrıca 99 numaları mose seçimini yaptım.

 

[manly]

Çok hoş olmuş gerçekten...ellerinize sağlık..