• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Ayırma

  • Konbuyu başlatan Konbuyu başlatan turgayzeynep
  • Başlangıç tarihi Başlangıç tarihi
T

turgayzeynep

Misafir
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
 
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
 
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.
 
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.
 
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
 
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:
Geri
Üst