Hücre Kopyalama

[byrmcvlk]

Ekteki çalışmadaki E8 hücresindeki rakamları B9 hücresine aradaki tireleri kaldırarak ve İki * işareti arasında kopyalamak istiyorum
mesela 255-03-01-09-07-2 sayısını *25503010302072* şeklinde kopyalamak istiyorum.

yardımcı olursanız sevinirim..

 

[haso_excel]

edit & replace yada ctrl h yapın
Find what kutusuna -
replace with boş bırakın
formul hucrede

 

[byrmcvlk]

edit & replace yada ctrl h yapın
Find what kutusuna -
replace with boş bırakın
formul hucrede

çok teşekkür ederim.Hızlı cevap için..

Birde mesela bu rakamın son hanelerinde değişiklik yaparak
255-03-01-09-07-2 mesela (255-03-01-09-07-2 ,255-03-01-09-07-10 kadar çıktı almak istesem) en kolay yöntemi nelerdir..

 

[haso_excel]

Aynı hücrede değişiklik yaparak değişklik yaptığınız sayı kadar print mi almak istiyorsunuz anlayamadım?

 

[byrmcvlk]

ilk soruma ek olarak bişi daha sormak istiyorum.gönderdiğiniz ekte kopyalan hücrede tire yok.Ama olması gerekir.255-03-01-09-07-2 sayısı *25503010302072* olması lazım.

255-03-01-09-07-2
255-03-01-09-07-3
255-03-01-09-07-4
255-03-01-09-07-5 şekinde değişiklik yaparak çıktı almak istesem bunun kolay bi yolu varmı?

 

[haso_excel]

Sayının *25503010302072* olacaksa "-" nerde anlayamadım örnek bir dosya lütfen?

 

[byrmcvlk]

E8 hücresinde 255-03-01-09-07-2 sayısı(bunun arasında - var)
B9 hücresinde *25503010302072* şeklinde olacak.(yani - olmayacak)

ilk mesajımda örnek var.bi örnekte resim gönderiyorum...

 

[nihatkr]

Sub cizgikaldir()
Range("E8").Select
Selection.Copy
Range("G8").Select
ActiveSheet.Paste
Range("G7:G9").Select
Selection.Replace What:="-", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Application.CutCopyMode = False
Selection.NumberFormat = "0"
Range("G8").Select
Selection.Copy
Range("G8").Select
Selection.Copy
Range("B9:E10").Select
ActiveSheet.Paste
Range("G6").Select
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("G6:G14"), Type:=xlFillDefault
Range("G6:G14").Select
Range("G8").Select
End Sub

Tek eksiği (*) olayı onuda çözmeye uğraşıyorum.

Örnek dosya ektedir.

 

[haso_excel]

Umarım dediğiniz olmuştur. Dosyanız ekde