Excel Forum

Excel Forum (http://www.excel.web.tr/index.php)
-   Makro-VBA (http://www.excel.web.tr/forumdisplay.php?f=48)
-   -   Makro ile seçili hücre birleştir (http://www.excel.web.tr/showthread.php?t=170425)

talatgorkem 09-02-2018 11:41

Makro ile seçili hücre birleştir
 
Merhaba arkadaşlar

B3 + B5:C15 hücrelerinde ki yazı ve sayıları, - işareti ile D2 birleştirmek için nasıl bir kod yazılmalı ?

İslem sonunda D2 de ki tüm içeriği kopyalayıp farklı bir alana yapistirabilmem gerekir

NOT : D2 de birleştirme sıralaması örn. B3+B5+C5+B6+C6 ... şeklinde ilerlemeli

Yardımlarınız için şimdiden çok teşekkür ederim

Seyit Tiken 09-02-2018 12:04

Bu şekilde deneyebilirsiniz.
Kod:

[d2] = [B3&" "&b5&" "&c3&" "&d3]
[d2].Copy
MsgBox [d2] & " Kopyalama Yapıldı"
Application.CutCopyMode = False


talatgorkem 09-02-2018 14:34

[d2] = [B3&" "&b5&" "&c3&" "&d3]
[d2].Copy
MsgBox [d2] & " Kopyalama Yapıldı"
Application.CutCopyMode = False

[d2].Copy kısmı için hata veriyor seyit bey

talatgorkem 09-02-2018 14:59

Cells ile yapanlar var ama istediğim şekilde yapamadım

talatgorkem 10-02-2018 20:00

Bu konu için uzun ya da kısa yoldan yardımcı olabilecek kimse var mı ???

Seyit Tiken 10-02-2018 20:11

Alıntı:

talatgorkem tarafından gönderildi (Mesaj 929649)
[d2] = [B3&" "&b5&" "&c3&" "&d3]
[d2].Copy
MsgBox [d2] & " Kopyalama Yapıldı"
Application.CutCopyMode = False

[d2].Copy kısmı için hata veriyor seyit bey

O kısmı silin.

talatgorkem 10-02-2018 20:45

gerçekten çok teşekkür ediyorum

bu kadar basit olacağı aklıma hiç gelmedi :)

talatgorkem 14-02-2018 19:24

seyit bey yardımız için tekrar teşekkür etmek isterim fakat bir sorun oluştu
bir satır içine o kadar uzun bir formül yazamıyorum hata veriyor :(

acaba kod yazarken uzun kod un sonuna bir işaret ekleyerek alt satırdan kodun devamını yazabilir miyiz ?

yani birleşik yazılan bir kodu iki satırda yazabilir miyiz - özellikle uzun olan kodlar için Devamı anlamında bir işaret

ilginiz için tekrar teşekkür ediyorum

çıtır 14-02-2018 19:48

Bende böyle bir kod yazdım.
Kod:

Sub Birleştir()
Range("D2") = Range("B3") & "-" & Range("B5") & "-" & Range("C5") & "-" & Range("B6") & "-" & Range("C6") _
& "-" & Range("B7") & "-" & Range("B8")
End Sub


talatgorkem 14-02-2018 20:00

valla çıtır ben hepsini tuttum tek tek yazdım fakat kod çok uzun olduğu için hata veriyor hatta kodu bir kaç parçaya böldüm sonra onları da birleştirmek için ayrı bir devam kodu yaptım fakat hücre içinde ki karakterlerde belirli bir sayıyı geçince hata veriyor :(

http://www.excel.web.tr/f48/kod-uzun...r-t170485.html


Saat 15:04

Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.