Hücre içi birleştirme

[Ali]

Örnek ve mesaj silindi

 

[Ali]

Modüle eklemediğiniz için o hatayı aldığınızı düşünüyorum.
Örneğiniz ektedir.

 

[mbattal]

Sayın ustalar,
Ekte gönderdiğim dosyaya bakıp bana yardım ederseniz çok sevinirim.
Hepinize kolay gelsin

 

[Ali]

Bir modülün içine aşağıdaki kodları ekleyin.

Public Function rakam(Deger As Range)
For Each hucre In Deger
    sayi = ""
    For i = 1 To Len(hucre)
        If IsNumeric(Mid(hucre, i, 1)) = True Then sayi = sayi & Mid(hucre, i, 1)
        If Mid(hucre, i, 1) = "," Then If IsNumeric(Mid(hucre, i - 1, 1)) = True And IsNumeric(Mid(hucre, i + 1, 1)) = True Then sayi = sayi & "."
        Next i
    a = Val(sayi) + a
Next hucre
rakam = a
End Function

C7 hücrenize =rakam(B7) yazıp aşağı doğru çekin. Virgül içeren değeriniz excel'in rakam ayırması için kullandığı için onların hepsini noktaya çevirmenizde fayda var.

 

[mbattal]

Sayın fructose,
çok teşekkür ederim ama,
#AD? hatası veriyor

 

[seku]

hücre birleştirme ile ilgili

Merhaba,

bende çok düşündüm..cevabını çok merak ediyorum...makro dışında herşeyi düşündüm.ama çözüm bulamadım..

saygılar

 

[Ali]

Sn seku Ekli dosya yukarıda onu inceleyin forumda bir ara problem olmuştu mesaj sıraları değişmişti.

 

[Seyit Tiken]

Bu,

=PARÇAAL(B7;1;3)&PARÇAAL(B7;5;3)&SAĞDAN(B7;3)

formülünü D7 hücresine yazıp ve hücre kulpundan tutup aşağı doğru çekin.
Formüller makro yöntemiyle değer haline(formülsüz) getirilebilir.

 

[Ali]

Bu,

=PARÇAAL(B7;1;3)&PARÇAAL(B7;5;3)&SAĞDAN(B7;3)

formülünü D7 hücresine yazıp ve hücre kulpundan tutup aşağı doğru çekin.

Sayı değiştiği zaman formül işlemez 400/001/500 gibi bir değer 400/01/500 olduğunda yanlış sonuç verecektir. Bu nedenle karakter adeti ne olursa olsun sayıyı alsın diye düşünüldüğünde makro daha kesin çözümdür.