harfleri a dan başalayarak sayı gibi arttırmak

[marmaristeen]

merhabalar,

Exelde şunu yapabiliyorum:Diyelimki 1.sutuna 1 yazdık ve altına 2 yazdık sonra ikisini birden seçerek sağ alttaki imlecin ince + olduğu yerden tutup aşağı kaydırırsak sayılarda aşağı dogru artıyor,2 nin altına 3 3'ün altına 4 4'ün altına 5 diye sayarak 100.000 lere kadar gidiyor.işte ben bunu harflere uyarlamak istiyorum mesela ilk satıra A yazayım altına da B sonra ikisini bir işaretleyip aşağı sürüklediğimde kendisi diğer hücreleri otomatik tamamlasın.yani B'nin altına C C'nin altına D diye gitsin...Ama epeyce çok gitsin yani en az 3 harfli kombinasyonlara ihtiyacım var. yardımcı olabilecek varsa sevinirim.

 

[Orion1]

Araçlar==>Seçenekler den Özel listeleri seçin ve Liste girdilerine arlarına virgül koyarak harflaeri girin ve tamam'a basın.
İşlem tamamdır.

 

[marmaristeen]

cevap için teşekkür ederim ama şöyle bir sıkıntım var ben bu işlemi 3 harfli seçeneklere kadar dema ettirmek istiyorum mesela TQA altında TQB altında TQC gibi sizin dediğiniz şekilde yaparsak bunları listeye elle teker teker girmek gerekiyor.bunları listede de tek girmek hem çok zor hemde çok karışık bi işlem olur bu işlemi otomatik yaptırmanın bi yolunu biliyomusunuz acaba... şimdiden teşekkürler

 

[Skorpiyon]

Sayın marmaristeen,

Ek'li örneği inceleyiniz. Sanırım istediğiniz böyle bir şey.

 

[aliakgul]

merhabalar,

yani B'nin altına C C'nin altına D diye gitsin...Ama epeyce çok gitsin yani en az 3 harfli kombinasyonlara ihtiyacım var. .

Sayın Sertkaya,
Anladığım kadarıyla istenen sizin yaptığınızdan ziyade, excel çalışma sayfasının sütun isimlendirmesi gibi... Yani harflerin seri diziliminde z'den sonra ikişerli dizilim bunun bitiminde de üçlü dizilim gibi...

 

[Skorpiyon]

Hmm sanırım haklısınız Sayın aliakgul,

Olsun bu da alternatif bir çalışma olmuş olur.

 

[aliakgul]

Olsun bu da alternatif bir çalışma olmuş olur.

Alternatif ürünler mutlaka işe yaramıştır. Bu çalışmanız da birgün birilerine mutlaka lazım olur.

 

[Skorpiyon]

Küçük bir düzenleme ile galiba bu sefer oldu.

 

[aliakgul]

Sayın Sertkaya,
Sanırım sorun var.Şöyle ki;
26.satır Z, 27. satır AA
52.satır AZ, 53. satır tekrar AA.
Ve döngü bu biçimde devam etti...


-----------------
Tekrar inceledim.Makro bir seriyi birkaç kere tekrarlayıp diğer seriye öyle geçiyor. Misal, AA-AZ dizilimi üç defa tekrarlanıp BA-BZ dizilimine geçiyor. Ve böyle devam ediyor...

 

[aliakgul]

Taktım bir kere şimdi buna ben... Soru benim sorummuş gibi oldu biraz.

 

[Skorpiyon]

Sanırım yine haklısınız Sayın aliakgul,

Gece gece yine kafa bu kadar bastı. Sabah ola hayrola bakalım. Yarın akşama belki hallederiz.

 

[aliakgul]

Önemli değil... Siz yazın, ben test ederim.

 

[aliakgul]

Eskiden bir bulmaca müptelası idim. Okulda ders aralarında bile bulmaca çözerdik. Ta ki, bu foruma daldım; o gün bu gündür, bulmaca yerine burada yayınlanan örnek çalışmalar üzerinde uygulamalar yapmak ve değişik uyarlamalar yapmak en büyük zevkim oldu. Bazen, tasarladığım çalışmalarda takılıp kalıyorum.Forumdan yardım almadan aşmaya çalışıyorum, saplantı yapıyor:Sabah gözümün önünde bir excel sayfası ile uyanıyorum...
Sözün özü; saat yine 24'ü devirdi ve ben yine forumdayım.
Herkese iyi geceler dileklerimle...

 

[marmaristeen]

herkeze yardımları için teşekkür ederim her ne kadar ben çözüme ulaşamamış olsamda bu kadar düşünceli yaklaşmanız bile yeter tekrar teşekkürler...

 

[Necdet]

Merhaba,

Kullanıcı Tanımlı Bir Fonksiyon yazmaya çalıştım. Dener misiniz? Sakın uzmanamele kardeşimiz duymasın bunu

Option Base 1
Function HarfSeri(HarfGrubu)
Dim Harf, Harfler As String
Dim Dizi(3) As Integer
Dim Uzunluk As Integer
Harfler = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
HarfUzunluk = Len(Harfler)
Uzunluk = Len(HarfGrubu)
If Uzunluk < 1 Or Uzunluk > 3 Then
    HarfSeri = "Karakter Sayısı = 1-3 Olmalı"
    Exit Function
End If
For i = 1 To UBound(Dizi)
    Dizi(i) = 0
Next i
j = 3
For i = Uzunluk To 1 Step -1
    Dizi(j) = InStr(Harfler, Mid(HarfGrubu, i, 1))
    j = j - 1
Next i
Dizi(3) = Dizi(3) + 1
If Dizi(3) > HarfUzunluk Then
    Dizi(3) = 1
    Dizi(2) = Dizi(2) + 1
    If Dizi(2) > HarfUzunluk Then
        Dizi(2) = 1
        Dizi(1) = Dizi(1) + 1
        If Dizi(1) > HarfUzunluk Then
            Dizi(1) = 0
            Dizi(2) = 0
        End If
    End If
End If
For i = 1 To 3
    If Dizi(i) <> 0 Then
        HarfSeri = Trim(HarfSeri & Choose(Dizi(i), "A", "B", "C", "D", "E", "F", "G", _
                                                   "H", "I", "J", "K", "L", "M", "N", _
                                                   "O", "P", "Q", "R", "S", "T", "U", _
                                                   "V", "W", "X", "Y", "Z"))
    End If
Next i
End Function

 

[marmaristeen]

çok teşekkür ederim tamda istediğim şey...elinize emeğinize yüreğinize sağlık...

 

[Skorpiyon]

Bende bugün işyerinde üzerinde biraz uğraşıp galiba istediğiniz tarzda bir şey yazmayı başardım.

Örnek ektedir.

 

[Necdet]

Harf dizi

Güle güle kullanınız Sayın marmaristeen