Ayırma

turgayzeynep

Altın Üye
Katılım
22 Şubat 2023
Mesajlar
310
Excel Vers. ve Dili
Ofis 2016 32 Bit Türkçe
Altın Üyelik Bitiş Tarihi
30-12-2029
Aşağıdaki belirtilen ad soyad rütbe görevi ve sicili A1 hücresinde mevcut alt enter ile yazıldı

Ali KÖKDERE
J.Asb.Kad.Üçvş.
Asyş.Tim.K.
2026 A.958

Yukarıdaki yazılı ad soyad rütbe görevi ve sicili B C D E HÜCRELERine yazmasını istiyorum
Nasıl yapabilirim Yardımcı olabilir misiniz
 

mustafa1205

Altın Üye
Katılım
23 Ekim 2010
Mesajlar
1,362
Excel Vers. ve Dili
Office 2016 / 64 Bit - Türkçe
Altın Üyelik Bitiş Tarihi
18-07-2026
İnceleyiniz. 1000. Satıra Kadar Yapar
 

Ekli dosyalar

Ali

Özel Üye
Katılım
21 Temmuz 2005
Mesajlar
7,966
Excel Vers. ve Dili
İş:Excel 2016-Türkçe
VBA ile

Kod:
Sub AyirVeYerlestir()
    Dim i As Long
    Dim veri As Variant
    Dim satirlar As Variant

    i = 2 ' Başlangıç satırı

    Do While Cells(i, 1).Value <> ""
        veri = Cells(i, 1).Value
        satirlar = Split(veri, vbLf)

        If UBound(satirlar) >= 3 Then
            Cells(i, 2).Value = satirlar(0) ' Adı Soyadı
            Cells(i, 3).Value = satirlar(1) ' Rütbesi
            Cells(i, 4).Value = satirlar(2) ' Görevi
            Cells(i, 5).Value = satirlar(3) ' Sicil No
        End If

        i = i + 1
    Loop
End Sub
 

Ali

Özel Üye
Katılım
21 Temmuz 2005
Mesajlar
7,966
Excel Vers. ve Dili
İş:Excel 2016-Türkçe
Formülle

B2 hücresine

Kod:
=KIRP(PARÇAAL(YERİNEKOY(DAMGA(10)&$A2;DAMGA(10);YİNELE(" ";255));SÜTUNSAY($A$1:A1)*255;255))
yazıp sağa ve aşağı çekerek doldurunuz.
 

volki_112

Altın Üye
Katılım
29 Eylül 2023
Mesajlar
720
Excel Vers. ve Dili
2019 Türkçe
Altın Üyelik Bitiş Tarihi
13-12-2029
Formülle

B2 hücresine

Kod:
=KIRP(PARÇAAL(YERİNEKOY(DAMGA(10)&$A2;DAMGA(10);YİNELE(" ";255));SÜTUNSAY($A$1:A1)*255;255))
yazıp sağa ve aşağı çekerek doldurunuz.
hocam bu formülde niye 255 rakamını kullanıyoruz. başka rakam kullanılsa olmaz mı. 255 in özelliği nedir.
 

muhasebeciyiz

Altın Üye
Katılım
10 Şubat 2006
Mesajlar
861
Excel Vers. ve Dili
Office 2016
64 Bit
Altın Üyelik Bitiş Tarihi
21-12-2027
Kod:
Mustafa1205
Dosyayı istediğiniz şekilde yaptım. İnceleyiniz

ALi bey 4 nolu mesajında zaten makroyu yazmış.Sİzde aynı makroyu dosyanıza kopyalama yapmışsınız
 

mustafa1205

Altın Üye
Katılım
23 Ekim 2010
Mesajlar
1,362
Excel Vers. ve Dili
Office 2016 / 64 Bit - Türkçe
Altın Üyelik Bitiş Tarihi
18-07-2026
Kod:
Mustafa1205
Dosyayı istediğiniz şekilde yaptım. İnceleyiniz

ALi bey 4 nolu mesajında zaten makroyu yazmış.Sİzde aynı makroyu dosyanıza kopyalama yapmışsınız
Evet Haklısınız. Dikkatimden Kaçmış...
 
Son düzenleme:
Üst