DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub birlestir59()
Dim i As Long, sonsat As Long
sonsat = Cells(Rows.Count, "E").End(xlUp).Row
Application.ScreenUpdating = False
For i = 2 To sonsat
Cells(i, "E").Value = Cells(i, "E").Value & "-" & Cells(i, "F").Value
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamamdır." & vbLf & "evrengizlen@hotmail.com"
End Sub
standart bir modüle yapıştırınız.
Kod:sub birlestir59() dim i as long, sonsat as long sonsat = cells(rows.count, "e").end(xlup).row application.screenupdating = false for i = 2 to sonsat cells(i, "e").value = cells(i, "e").value & "-" & cells(i, "f").value next i application.screenupdating = true msgbox "işlem tamamdır." & vblf & "evrengizlen@hotmail.com" end sub
Buyurun...sayın Orion1,
E sütünundaki sayılar sabit değil. 5002 vb gibi rakamlarda var. G sütünunda E ile F yi macro ile yazdığınız formatta birleştirebilirmiyiz. teşekürler.
=E2&"-"&F2
merhaba . Bu kodları nasıl kullanabılırım ..nereye yapıştırmam lazm gıbı
tamam üstadım hallettim. çok teşekkür ederim... =birleştir(E2&"-"&F2) şeklinde sorun çözüldü.
=BİRLEŞTİR(E2;"-";F2)
iyi ki varsınız. teşekürler.