Sayfa düzenleme

[bilmiyorum]

ektede belirtiğim gibi bir excel sayfamız var fakat burdakı yazılar ve rakamların yerı sürekli değişiyor ama ben bu yazılar ve rakamlar içinden sadece başlarında - işareti ile başlayanların ya alt alta yada yanyan olmasını istıyorum geri kalan yazı ve rakamları istemiyorum.Yapmam mümkünmü?

Örn.
-1F1-F3
-1K1

yada -1F1-F3 1K1 ama bunların hepsı ayrı ayrı satır ve sütünlarda olacak.

konuyla ilgilendiğiniz için teşekkürler

 

[Necdet]

Merhaba,

Eklediğiniz dosyada olması gereken çözümü 2. sayfada gösterebilir misiniz?

Şu hücredeki değer şöyle, bu hücredeki değer böyle olacak diye.

Tam anladım diyorum "çözümün ayrı ayrı satır ve sütunlarda olacak" ibaresiyle hiç bir şey anlamadığımı anlıyorum.

 

[bilmiyorum]

Ekte göndermiş oldugum excelde sadece benım için sadece önemli olan başlarında - işareti olan sayılar ve rakamlar ektede görecegınız gıbı karışık ben sadece - işaretli olan sayıları ya aynı satırda yada aynı sütünda görmek istıyorum.Fakat geri kalan yazı ve rakamları istemiyorum sadece başlarında - işaretli olanları istıyorum diğerlerini silebilirz.Mümkünmüdür.

Çok teşk.

 

[Necdet]

Merhaba,

Aşağıdaki kodları deneyiniz.

Sheet2 sayfasının A sütununa yazar.

Tam olarak isteğiniz karşılanıyor mu bilmiyorum.

Sub Sayfaları_Düzenle()
 
    Dim i   As Long, _
        j   As Integer, _
        k   As Integer, _
        Txt As String, _
        Hcr As Range, _
        d
    
    Sheets("Sheet2").Range("A:A").ClearContents
    
    For Each Hcr In Selection.SpecialCells(xlCellTypeConstants, 23)
        If Hcr Like "*-*" Then
            d = Split(Hcr, " ")
            For j = 0 To UBound(d)
                If d(j) Like "-*" Then
                    k = k + 1
                    If k > 9 Then
                        k = 0
                        i = i + 1
                        Sheets("Sheet2").Cells(i, "A") = Txt
                        Txt = ""
                    Else
                        Txt = Txt & " " & d(j)
                    End If
                End If
            Next j
        End If
        
        
    Next Hcr
        
End Sub

 

[bilmiyorum]

Selamlar

Kusura bakmayın sürekli soruyorum ama

Ewet bunun gibi fakat mesale Sheet2 sayfasının A sütünuna yazmışızya ben o A sütünuna 1Nolu satırna yazan -0F1-F3 -1F1-F3 -2F1-F3 -3F1-F3 -4F1-F3 -0K1 -1K1 -2K1 -3K1 yazılarıda
1 nolu satıra -0F1
2 nolu satıra -F3 şeklinde istıyorum
ve bunların hepsıni ayrı birer satırda istıyorum
Birde bu yazılar rakamlar ve yerleri degiştiği zamanda sürekli düzenlemem lazımmı? yoksa sizin yaptıgınızın üzerine yapıştırıp sadece butona basmam yeterli olacakmı?

Konuyla ilgilendığiniz için teşk. ederim.

 

[Necdet]

Selamlar

Kusura bakmayın sürekli soruyorum ama

Ewet bunun gibi fakat mesale Sheet2 sayfasının A sütünuna yazmışızya ben o A sütünuna 1Nolu satırna yazan -0F1-F3 -1F1-F3 -2F1-F3 -3F1-F3 -4F1-F3 -0K1 -1K1 -2K1 -3K1 yazılarıda
1 nolu satıra -0F1
2 nolu satıra -F3 şeklinde istıyorum
ve bunların hepsıni ayrı birer satırda istıyorum
Birde bu yazılar rakamlar ve yerleri degiştiği zamanda sürekli düzenlemem lazımmı? yoksa sizin yaptıgınızın üzerine yapıştırıp sadece butona basmam yeterli olacakmı?

Konuyla ilgilendığiniz için teşk. ederim.

Bende bunu sormuştum zaten ama soruma yanıt vermemiştiniz.

Aşağıdaki kodlar çözüme yakın sonuçlar üretiyor.

Sub Sayfaları_Düzenle()
    
    Dim i   As Long, _
        j   As Integer, _
        Hcr As Range, _
        d
    Sheets(1).Select
    
    Sheets(2).Range("A:A").ClearContents
    
    For Each Hcr In Selection.SpecialCells(xlCellTypeConstants, 23)
        If Hcr Like "*-*" Then
            d = Split(Hcr, " ")
            For j = 0 To UBound(d)
                If d(j) Like "-*" Then
                    i = i + 1
                    Sheets("Sheet2").Cells(i, "A") = d(j)
                End If
            Next j
        End If
    Next Hcr
    
    Sheets(2).Select
    MsgBox "Düzenleme Bitmiştir...."
    
End Sub

 

[bilmiyorum]

Çok teşk. ederım ewet tam istediğim gibi olmuş elinize sağlık=)