Hücre İçerisinde değişiklik Hakkında

[garanti01]

Arkadaşlar günaydın,

Ek li dosya örneğinde de görüldüğü gibi hücre içerisinde değişiklik yapmam lazım. yardımcı olabilirseniz sevinirim.

 

[Necdet]

Merhaba,

B2

=SOLDAN(KIRP(A2);UZUNLUK(KIRP(A2))-2)

 

[İhsan Tank]

Arkadaşlar günaydın,

Ek li dosya örneğinde de görüldüğü gibi hücre içerisinde değişiklik yapmam lazım. yardımcı olabilirseniz sevinirim.

merhaba
aynı sütunda isterseniz makro kullanmanız gerekli
bu kod'u boş bir module kopyalayarak deneyiniz

Option Explicit
Sub birleştir_böl()
Dim a, asi
asi = MsgBox("Verileri Birleştirip Bölüyorum_?", vbYesNo, "Onay")
If asi = vbNo Then Exit Sub
For a = 2 To Cells(65536, "A").End(xlUp).Row
Cells(a, "A") = Replace(Range("A" & a), " ", "")
Cells(a, "A") = Mid(Range("A" & a), 1, 4) & " " & Mid(Range("A" & a), 5, 4) _
& " " & Mid(Range("A" & a), 10, 2)
Next
MsgBox "Veriler Dizayn Edildi", vbInformation, "Bitiş"
End Sub

 

[garanti01]

Sağolasın üstadım

 

[garanti01]

merhaba
aynı sütunda isterseniz makro kullanmanız gerekli
bu kod'u boş bir module kopyalayarak deneyiniz

option explicit
sub birleştir_böl()
dim a, asi
asi = msgbox("verileri birleştirip bölüyorum_?", vbyesno, "onay")
ıf asi = vbno then exit sub
for a = 2 to cells(65536, "a").end(xlup).row
cells(a, "a") = replace(range("a" & a), " ", "")
cells(a, "a") = mid(range("a" & a), 1, 4) & " " & mid(range("a" & a), 5, 4) _
& " " & mid(range("a" & a), 10, 2)
next
msgbox "veriler dizayn edildi", vbınformation, "bitiş"
end sub

makro bilgim hiç yok üstadım, ilgin için çok tşk ederim

 

[garanti01]

bir konuda daha bilginize ihtiyacım oldu arkadaşlar. Ek li dosyada hücre birleştirme ile ilgili bir sorum var, yardımcı olacak arkadaşlara tşk ederim

 

[İhsan Tank]

bir konuda daha bilginize ihtiyacım oldu arkadaşlar. Ek li dosyada hücre birleştirme ile ilgili bir sorum var, yardımcı olacak arkadaşlara tşk ederim

bu işinizi görür sanırım

=A2&" "&B2&" "&C2