• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Çözüldü Rakamları ve Metinleri ayırmak

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

cengizozdemir1

Yeni Üye
Katılım
19 Eyl 2018
Mesajlar
7
En iyi yanıt
0
Puanları
3
Yaş
44
Konum
Kayseri
Ad Soyad
Cengiz ÖZDEMİR
Merhabalar ;

12saat34dk45sn verilerim var elimde bunları sütunlara ayırarak yazdırmak istiyorum. Yardımcı olabilir misiniz. her sütuna bir rakam olacak şekilde 12 - 34 - 45 şeklinde.

Şimdiden teşekkürler.
 

BadCatSero

Yeni Üye
Katılım
21 Ağu 2019
Mesajlar
15
En iyi yanıt
0
Puanları
3
Yaş
37
Konum
İstanbul
Ad Soyad
Enes Güven
hocam örnek gönderirsen yardımcı olmaya çalışabilirim. ama kafamdaki mantık şöyle;
(ing. excel kullanıyorum)
ayırmak istediğin sütunu seçtikten sonra Data kısmında Text to Columns seçip delimited olarak devam edip en alttaki other kısmında saat yazarsan başındaki ve sonundakileri ayrı sütunlara atabilir.
 

cengizozdemir1

Yeni Üye
Katılım
19 Eyl 2018
Mesajlar
7
En iyi yanıt
0
Puanları
3
Yaş
44
Konum
Kayseri
Ad Soyad
Cengiz ÖZDEMİR
hocam merhaba örnek olarak ekte gönderiyorum.
 

Ekli dosyalar

  • ornek.xlsx
    9 KB · Görüntüleme: 10

BadCatSero

Yeni Üye
Katılım
21 Ağu 2019
Mesajlar
15
En iyi yanıt
0
Puanları
3
Yaş
37
Konum
İstanbul
Ad Soyad
Enes Güven
Hocam merhaba;

Şu şekilde bir macro çalıştırdım umarım sizde de çalışır.

Mantığım sütundaki gün - saat - dakika ifadelerinin başına ve sonuna (,) işareti koydurup onları sütunlara bölmek şeklinde. A sütununa elinizdeki ham datayı koyup macroyu çalıştırabilirsiniz.



Sub Macro5()
'
' Macro5 Macro
'

'
Columns("A:A").Select
Selection.Replace What:="sn", Replacement:=",sn", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="gün", Replacement:=",gün,", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="saat", Replacement:=",saat,", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="dk", Replacement:=",dk,", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:=",", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
1), Array(6, 1), Array(7, 1), Array(8, 1)), TrailingMinusNumbers:=True
Range("I13").Select
End Sub
 

cengizozdemir1

Yeni Üye
Katılım
19 Eyl 2018
Mesajlar
7
En iyi yanıt
0
Puanları
3
Yaş
44
Konum
Kayseri
Ad Soyad
Cengiz ÖZDEMİR
Hocam teşekkür ederim. makro çalıştı. ellerinize sağlık. bir şey sormak istiyorum sn lerin hepsi aynı sütüna gelebilir mi ?
 

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,506
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
Merhaba @cengizozdemir1,

1570054230812.png

Bu kodları kullanabilirsiniz..
PHP:
Sub ExcelTurkey()
    Dim Osma As Object, i%
    Set Osma = CreateObject("VBScript.RegExp")
    Osma.Global = True
    Osma.Pattern = "[0-9]+"
    Range("B:E").ClearContents
    On Error Resume Next
    For i = 1 To Range("A65536").End(3).Row
        Select Case Osma.Execute(Cells(i, "A")).Count
            Case 4
                Cells(i, "B") = CLng(Osma.Execute(Cells(i, "A")).Item(0))
                Cells(i, "C") = CLng(Osma.Execute(Cells(i, "A")).Item(1))
                Cells(i, "D") = CLng(Osma.Execute(Cells(i, "A")).Item(2))
                Cells(i, "E") = CLng(Osma.Execute(Cells(i, "A")).Item(3))
            Case 3
                Cells(i, "C") = CLng(Osma.Execute(Cells(i, "A")).Item(0))
                Cells(i, "D") = CLng(Osma.Execute(Cells(i, "A")).Item(1))
                Cells(i, "E") = CLng(Osma.Execute(Cells(i, "A")).Item(2))
            Case 2
                Cells(i, "D") = CLng(Osma.Execute(Cells(i, "A")).Item(0))
                Cells(i, "E") = CLng(Osma.Execute(Cells(i, "A")).Item(1))
        End Select
    Next i
    i = Empty: Set Osma = Nothing
End Sub
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt