Hey there!

It looks like you're enjoying Excel Trkiye- Akademik Excel Forumu but haven't created an account yet. Why not take a minute to register for your own free account now? As a member you get free access to all of our forums and posts plus the ability to post your own messages, communicate directly with other members and much more. Register now!

Already a member? Login at the top of this page to stop seeing this message.

Toplam 3 sonutan 1 ile 3 arasndakiler gsteriliyor.

Konu: hre iindeki saylar kolonlara datma

  1. #1
    Kdemli ye
    yelik tarihi
    Jul 2008
    Nereden
    stanbul-Kkekmece
    Versiyon
    2010
    Mesajlar
    185

    hre iindeki saylar kolonlara datma

    Merhaba
    a kolonunda 3 er karakterli, 2 er karakterli ve 1 er karkterli veriler mevcut
    bunlar b,c,d kolonlarna datmam gerekiyor.

    1 er karekterli leri d stununa
    2 er karakterli leri c ve d stununa
    3 er karekterlileri b,c,ve d stununa koymas gerekiyor.

    a b c d
    123 1 2 3
    12 1 2
    1 1


    Yardmc olmanz rica ederim.

  2. #2
    Kdemli ye
    yelik tarihi
    Mar 2011
    Nereden
    stanbul
    Versiyon
    Excel 2010 Trke
    Mesajlar
    113
    Veri sekmezi altnda Metni Stunlara Dntr seeneini tklayp boluk ayrma seenei ile stunlara alabilirsin ama istediin eylerde de bir karmaklk var D stununa hem tek basamakllar hem iki hem basamakllar gelsin demisin bence sen Metni Stunlara Dntr ile bir dene bakalm istediin oluyormu

  3. #3
    Kdemli ye
    yelik tarihi
    Dec 2009
    Nereden
    stanbul
    Versiyon
    Excel 2003 - 2007 TR
    Mesajlar
    416
    Kod:
    Sub ayir()    
        a = [A2:A4]
        ReDim b(1 To UBound(a), 1 To 3)
            For i = 1 To UBound(a)
                uz = Len(a(i, 1))
                say = say + 1
                If uz <= 3 Then
                    For j = uz To 1 Step -1
                        b(say, j - uz + 3) = Mid(a(i, 1), j, 1)
                    Next j
                End If
            Next i
        [B2].Resize(say, 3) = b
        MsgBox "lem tamam.", vbInformation
    End Sub

Konu Bilgisi

Users Browsing this Thread

u anda 1 yemiz bu konuya gz atyor. (0 kaytl ye ve 1 misafir.)

Yetkileriniz

  • Konu Acma Yetkiniz Yok
  • Cevap Yazma Yetkiniz Yok
  • Eklenti Ykleme Yetkiniz Yok
  • Mesajnz Deitirme Yetkiniz Yok
  •