Sayıları Dizmek

[Mikdad]

Seluman Aleykum Dostlarım . excelde bu şekilde sayılar D2 den itibaren aşağıya doğru sıralanıyor. ben bu sayılar arasındaki -Tire işaretini kaldırıp alt alta J sutununa sıralanmasını istiyorum. bunun kolay bir yolu var mı acaba

10-11
8-9
5-19
1-3-6-11-12-13-14-15
25
27
26
2-4-5-8-9-10-16-22
29
17-18-19-20-21
6-13
26-27
2
3-22
7-23-24-30
7-12
28
1-18
4-14
20-21
15-25
24
28-29
23
30
16-17

 

[Necdet]

Merhaba,
Kolay yolu bence makro.

 

[beab05]

Merhaba;

Aşağıdaki kod ile yapabilirsiniz.

Not: Yapay zeka ile oluşturuldu ama gayet güzel çalışıyor

Sub AyirVeYaz()
    Dim cel As Range, splitData() As String
    Dim i As Long, j As Long, k As Long
   
    j = 2
   
    For Each cel In Range("D2:D" & Range("D" & Rows.Count).End(xlUp).Row)
        splitData = Split(cel.Value, "-")
        k = UBound(splitData)
        If k = 0 Then
            Range("J" & j).Value = splitData(0)
            j = j + 1
        Else
            For i = 0 To k
                Range("J" & j).Value = splitData(i)
                j = j + 1
            Next i
        End If
    Next cel
End Sub

 

[Necdet]

Merhaba,
Ben de karalamıştım bir şeyler

Public Sub Listele()

Dim i As Long
Dim j As Long
Dim arr As Variant

Application.ScreenUpdating = False

j = 2
For i = 2 To Cells(Rows.Count, "D").End(3).Row
    arr = Split(Cells(i, "D"), "-")
    Range("j" & j).Resize(UBound(arr, 1) + 1, 1) = Application.WorksheetFunction.Transpose(arr)
    j = j + UBound(arr) + 1
Next i

Application.ScreenUpdating = True

End Sub

 

[Greenblacksea53]

=EĞERHATA(YERİNEKOY(İNDİS($D$2:$D$15;KÜÇÜK(EĞER($D$2:$D$15<>"";SATIR($D$2:$D$15)-SATIR($D$2)+1);SATIR(1:1)));"-";"");"  ")

Denermisin doğru mu anladım, dizi förmülüdür CRTL+ALT+ENTER yapıp aşağıya çekin

 

[Haluk]

Alternatif olarak, Google Sheets;




.

 

[Mikdad]

Merhaba;

Aşağıdaki kod ile yapabilirsiniz.

Not: Yapay zeka ile oluşturuldu ama gayet güzel çalışıyor

Sub AyirVeYaz()
    Dim cel As Range, splitData() As String
    Dim i As Long, j As Long, k As Long
  
    j = 2
  
    For Each cel In Range("D2:D" & Range("D" & Rows.Count).End(xlUp).Row)
        splitData = Split(cel.Value, "-")
        k = UBound(splitData)
        If k = 0 Then
            Range("J" & j).Value = splitData(0)
            j = j + 1
        Else
            For i = 0 To k
                Range("J" & j).Value = splitData(i)
                j = j + 1
            Next i
        End If
    Next cel
End Sub

Hocam Harikasınız , Sizin Şu Yapay Zekaya
A2 , B2 , C2 ve D2 hücresinden başlayıp A Stununda son dolu hücreye kadar kopyalayıp Dokum Sayfasında
A4, B4 , C4 ve D4 ten itibaren kopyalamasını söylermisiniz

 

[Mikdad]

Ya HU Hocalarım Hakkınızı Helal Edin, MaşaAllah Size

 

[beab05]

Hocam Harikasınız , Sizin Şu Yapay Zekaya
A2 , B2 , C2 ve D2 hücresinden başlayıp A Stununda son dolu hücreye kadar kopyalayıp Dokum Sayfasında
A4, B4 , C4 ve D4 ten itibaren kopyalamasını söylermisiniz

Sub CopyAndPaste()
    Dim lastRow As Long
    
    'Sayfa1'deki A sütununda son dolu hücrenin satır numarasını bulun
    lastRow = Sheets("Sayfa1").Cells(Rows.Count, "A").End(xlUp).Row
    
    'A2'den başlayarak Sayfa1'deki A sütununda son dolu hücreye kadar olan bölgeyi kopyalayın
    Sheets("Sayfa1").Range("A2:D" & lastRow).Copy
    
    'Kopyalanan bölgeyi Dokum Sayfası'ndaki A4 hücresinden itibaren yapıştırın
    Sheets("Dokum").Range("A4").PasteSpecial xlPasteValues
End Sub

 

[Mikdad]

Sub CopyAndPaste()
    Dim lastRow As Long
   
    'Sayfa1'deki A sütununda son dolu hücrenin satır numarasını bulun
    lastRow = Sheets("Sayfa1").Cells(Rows.Count, "A").End(xlUp).Row
   
    'A2'den başlayarak Sayfa1'deki A sütununda son dolu hücreye kadar olan bölgeyi kopyalayın
    Sheets("Sayfa1").Range("A2:D" & lastRow).Copy
   
    'Kopyalanan bölgeyi Dokum Sayfası'ndaki A4 hücresinden itibaren yapıştırın
    Sheets("Dokum").Range("A4").PasteSpecial xlPasteValues
End Sub

Hocam size ve Yapay Zekaya Saygılarımı Sunuyorum.

 

[Mikdad]

Son Olarak Bu Excel Yapay Zeka ile Biz Nasıl Tanışacağız Mümkün müdür? yani bir eklentimi bir kod bloğumu veya bunun bir eğitimi mi var. Kısa bir bilgi verirseniz sevinirim

 

[Greenblacksea53]

Chat Gbt yaz google giriş yap sorunu sor ücretsiz bazen sapıtıyor, ücretli versiyonu yaklaşık 400 Tl aylık ama bayağı akıllı. Bende denedim güzel sonuçlar veriyor

 

[beab05]

ChatGpt diye araştırın çok fazla konu göreceksiniz..

Yalnız kodu yapay zekaya yazdırıp buraya yazarken insan kendini kötü hissediyor Sanki başkasının yazdığı kodu kopyala yapıştır yapmak gibi geliyor.

Aslında bu yapay zeka internet üstünde var olan bir kodu arayıp bulmuyor o an bizim isteğimize göre oluşturuyor. Yani yine bize özel gibi oluyor.

 

[Mikdad]

ChatGpt diye araştırın çok fazla konu göreceksiniz..

Yalnız kodu yapay zekaya yazdırıp buraya yazarken insan kendini kötü hissediyor Sanki başkasının yazdığı kodu kopyala yapıştır yapmak gibi geliyor.

Aslında bu yapay zeka internet üstünde var olan bir kodu arayıp bulmuyor o an bizim isteğimize göre oluşturuyor. Yani yine bize özel gibi oluyor.

Özel olarak tavsiye ettiğiniz veya kullandığınız linki alma imkanım var mı acaba

 

[beab05]

Aşağıdaki linkten üyelik işlemlerinizden sonra deneyebilirsiniz.

Spoyler: Link

https://chat.openai.com/chat

 

[Mikdad]

Aşağıdaki linkten üyelik işlemlerinizden sonra deneyebilirsiniz.

Spoyler: Link

https://chat.openai.com/chat

Chrome Eklentisi buldum çok iyi geldi Allah razı olsun

 

[beab05]

Sadece kod yazdırma değil, adınıza akrostiş şiir de yazdırabilirsiniz.