DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Merhaba,Merhaba
a sutunundaki adresin sonuna "F.mp3"'ü tümüne kopyalamak istiyorum.
Dossyayı xls olarak kaydettim ama ben 2007 kullanıyorum.
teşekkürler.
=A1&$B$1
merhabaMerhaba
a sutunundaki adresin sonuna "F.mp3"'ü tümüne kopyalamak istiyorum.
Dossyayı xls olarak kaydettim ama ben 2007 kullanıyorum.
teşekkürler.
Sub birleş()
Dim a As Long
excelwebtr = MsgBox("Veriler'i Birleştireyim Mi_?", vbYesNo, "Onay")
If excelwebtr = vbNo Then Exit Sub
For a = 1 To Cells(65536, "A").End(xlUp).Row
Cells(a, "A") = Replace(Cells(a, "A"), "F.mp3", "")
Cells(a, "A") = Range("A" & a) & "F.mp3"
Next
MsgBox "Veriler Birleştirildi", vbInformation, "Bitiş"
End Sub
=A1&$B$1