• DİKKAT

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

Müteselsil numara vermek.

  • Konbuyu başlatan Konbuyu başlatan behic26
  • Başlangıç tarihi Başlangıç tarihi
B

behic26

Katılım
30 Ekim 2005
Mesajlar
71
Excel Vers. ve Dili
Excel 2003 Tr.
Öncelikle merhabalar...
Excel dersanesinde, user form oluşturmak başlığı altında, Sn. Ferhat Razarçevirdi'nin kodlarından yararlanarak hazırlamaya çalıştığım takip çizelgesinde, pul numaralarını birbirinin peşi sıra eklemeyi başaramadım.
Bu vesile ile Ferhat Pazarçevirdi hocama bir kez daha teşekkür etmek istiyorum.
Yardımcı olacak arkadaşlarıma şimdiden teşekkür ederim.
 

Ekli dosyalar

behic26' Alıntı:
Öncelikle merhabalar...
Excel dersanesinde, user form oluşturmak başlığı altında, Sn. Ferhat Razarçevirdi'nin kodlarından yararlanarak hazırlamaya çalıştığım takip çizelgesinde, pul numaralarını birbirinin peşi sıra eklemeyi başaramadım.
Bu vesile ile Ferhat Pazarçevirdi hocama bir kez daha teşekkür etmek istiyorum.
Yardımcı olacak arkadaşlarıma şimdiden teşekkür ederim.
Genişletmek için tıkla ...

Syn. behic26;
pul numarası ve adedini nerede görmek istiyorsunuz ?
Şu anda gögülenyerlerde değilmi.
 
ynmcany' Alıntı:
Syn. behic26;
pul numarası ve adedini nerede görmek istiyorsunuz ?
Şu anda gögülenyerlerde değilmi.
Genişletmek için tıkla ...

Merhabalar. Öncelikle ilgilendiğiniz için teşekkür ederim.
Şu anda görünen yerde görmek istiyorum.
İlk girişte A13258001 den başlayan 20 pulum var. Bunları "Pul" sayfasının A2:A21 ine yazsın...
Yeniden A18000121 den başlayan 30 pulu "pul" sayfasının A22 sinden başlayarak yazmasını istiyorum.
Tekrar teşekkürler...
 
Syn.Behic26 ;
Ekteki dosyayı inceleyin, istediğiniz bumu ?
 

Ekli dosyalar

Merhabalar Sn.ynmcany...
Ellerinize, emeğinize sağlık. Tam istediğimi yapıyor. Çok teşekkür ederim.
 
Merhabalar...
Bir üstteki mesajımda oldu demiştim ama...
Cevaplamada geç kalmak endişesiyle sonradan eklenenlerin son satırdan itibaran eklendiğini görünce tamam oldu demiştim kendi kendime.
Daha dikkatli olarak incelediğimde pul sayısı kadar hep aynı numaralı pulların eklendiğini fark ettim.
Örneğin:

İlk grupta A13557201 ilk pulun numarası ise, ikinci pulun numarası A13557202 ve takiben A13557203 ... A13557350 olmak üzere A2:A151 aralığına 150 adet pul eklenmeliydi.

İkinci grupta A14000001 ilk pulun numarası ise 100 adet pul A152:A252 aralığına A14000100 son pul numarası ile eklenmeliydi.

Dikkatsizliğimden dolayı özür diliyor yardımlarınızı bekliyorum.
 
Merhabalar Sn.ynmcany...
TextBox1 deki değerle TextBox2 deki değeri birleştirdiğimiz takdirde TextBox1'e girdiğimiz Pul Numarası, TextBox2 deki karakter sayısı kadar karakter eklenerek değişmiş oluyor.
Pul Numarası sayısal bir değer olmadığı için AutoFill kullanmayı düşünmüş ama bir türlü son satırdan sonra otomatik doldurmayı başaramamıştım. Diğer modüllerle uğraşırken aklım iyice dağıldı artık düşünemiyorum.
İlginiz ve emeğiniz için teşekkür ediyor, yardımlarınızı bekliyorum.
Saygılar...
 
behic26' Alıntı:
Merhabalar Sn.ynmcany...
TextBox1 deki değerle TextBox2 deki değeri birleştirdiğimiz takdirde TextBox1'e girdiğimiz Pul Numarası, TextBox2 deki karakter sayısı kadar karakter eklenerek değişmiş oluyor.
Pul Numarası sayısal bir değer olmadığı için AutoFill kullanmayı düşünmüş ama bir türlü son satırdan sonra otomatik doldurmayı başaramamıştım. Diğer modüllerle uğraşırken aklım iyice dağıldı artık düşünemiyorum.
İlginiz ve emeğiniz için teşekkür ediyor, yardımlarınızı bekliyorum.
Saygılar...
Genişletmek için tıkla ...
Syn. behic26;
İşinize yararmı bilmiyorum, Userforma bir adet texbox daha ekledim. Bu şekilde pul numarasını seri ve no olarak ayrı texbox' lara yazıyorsunuz.Bu şekilde bir sorun olmayacağını tahmin ediyorum. Ekteki dosyayı inceleyin.
 

Ekli dosyalar

Merhabalar Sn.ynmcany...
Güzel düşüncenizden ötürü sizi kutlarım.
Ama bu sefer de Örneğin S90 serisinin ilk pulu olan 000001 numaralı pulu excele anlatmak sorun oldu. 000001 numarayı 1 olarak algıladı 1'in solundaki sıfırları solda sıfır bıraktı :) (Yani yok saydı)
İlginiz ve emeğiniz için teşekkür ediyor, yardımlarınızı bekliyorum.
 
behic26' Alıntı:
Merhabalar Sn.ynmcany...
Güzel düşüncenizden ötürü sizi kutlarım.
Ama bu sefer de Örneğin S90 serisinin ilk pulu olan 000001 numaralı pulu excele anlatmak sorun oldu. 000001 numarayı 1 olarak algıladı 1'in solundaki sıfırları solda sıfır bıraktı :) (Yani yok saydı)
İlginiz ve emeğiniz için teşekkür ediyor, yardımlarınızı bekliyorum.
Genişletmek için tıkla ...
Syn. Behic26 ;
Bu iki şekilde bir çözüm buldum;
1. si
Texbox1'e yazılan pul başlangıç numarasının önündeki 0' ları yazmayın.
Texbox1'e yazılan pul başlangıç numarasının karakter sayısını kod ile saydırıp, (istenen karakter sayısını 6 varsayarak ) eksik karakter kadar 0' rı "A" sütununa, Texbox1' deki rakamın önüne kod ile birleştirerek aktardım.
Örnek 1' i inceleyin.

2. si
Yok illa 0' ları yazmam gerekiyor diyorsanız.
Öncelikle pul başlangıç numarasını girdiğimiz ( texbox1 ) deki veriyi "D1" hücresine akttardım. Bu hücrede 0 ile başlayan rakkamların 0' ları görünmüyor. "D1" hücresindeki karakter sayısını kod ile saydırıp, (istenen karakter sayısını 6 varsayarak ) eksik karakter kadar 0' rı "A" sütununa, "D1" hücresindeki rakamın önüne kod ile birleştirerek aktardım.
"D1" hücresi çalışmanız için uygun değil ise, aşağıda gördüğünüz kodun ilk ve son satırında kırmızı rekli yerlerden değiştirebilirsiniz.
Örnek 2' yi incelelin.
Kod: 
Sheets("pul").Range[COLOR="Red"]("D1")[/COLOR].Value = UserForm1.TextBox1.Value


    Son_Dolu_Satir = Sheets("pul").Range("A65536").End(xlUp).Row
    Bos_Satir = Son_Dolu_Satir
On Error Resume Next
For i = 1 To UserForm1.TextBox2.Value
x = i + Bos_Satir
y = i + Sheets("pul").Cells(1, 4).Value
Z = Sheets("pul").Cells(1, 4).Value
    If TextBox1.Text <> "" Then
        If TextBox2.Value <> "" Then
            If TextBox3.Value <> "" Then
               If Len(TextBox1) < 6 Then
               MsgBox "Pulların başlangıç numarasına eksik rakkam girmediniz."
               Exit Sub
               End If
                  If Len(TextBox1) > 6 Then
                  MsgBox "Pulların başlangıç numarasına fazla rakkam girmediniz."
                  Exit Sub
                  End If
If Len(Z) = 6 Then
Sheets("pul").Cells(x, 1).Value = TextBox3.Value & y - 1
End If
    If Len(Z) = 5 Then
    Sheets("pul").Cells(x, 1).Value = TextBox3.Value & 0 & y - 1
    End If
        If Len(Z) = 4 Then
        Sheets("pul").Cells(x, 1).Value = TextBox3.Value & 0 & 0 & y - 1
        End If
            If Len(Z) = 3 Then
            Sheets("pul").Cells(x, 1).Value = TextBox3.Value & 0 & 0 & 0 & y - 1
            End If
                If Len(Z) = 2 Then
                Sheets("pul").Cells(x, 1).Value = TextBox3.Value & 0 & 0 & 0 & 0 & y - 1
                End If
                    If Len(Z) = 1 Then
                    Sheets("pul").Cells(x, 1).Value = TextBox3.Value & 0 & 0 & 0 & 0 & 0 & y - 1
                    End If
       
    Else
    MsgBox "Pul Serisini girmediniz."
    Exit Sub
    End If
    Else
    MsgBox "Pul adedini girmediniz."
    Exit Sub
    End If
    Else
    MsgBox "Pulların başlangıç numarasını girmediniz."
    Exit Sub
    End If
  
Next i
        
Sheets("pul").Range[COLOR="Red"]("D1")[/COLOR].Value = ""
End Sub[COLOR="Red"][/COLOR]
 

Ekli dosyalar

Son düzenleme:
Merhabalar Sn.ynmcany...
Öncelikle yardımlarınız için teşekkür ediyorum.
Gönderdiğiniz öreklerin her ikisini de iyice inceledim, hatta kodlarla oynayarak düzeltmeye bile çalıştım. Ama başaramadım.
Kendimce şöyle bir çözüm buldum:
Pul serisini tablonun kullanılmayan Z:Z alanına doldurdum. Bu seriyi seçip-kestim, sonra da kullanılacağı alan olan A:A alanının son dolu satırından sonraki ilk boş satırına yapıştırdım.
Selam ve Saygılar...
 

Ekli dosyalar

behic26' Alıntı:
Merhabalar Sn.ynmcany...
Öncelikle yardımlarınız için teşekkür ediyorum.
Gönderdiğiniz öreklerin her ikisini de iyice inceledim, hatta kodlarla oynayarak düzeltmeye bile çalıştım. Ama başaramadım.
Kendimce şöyle bir çözüm buldum:
Pul serisini tablonun kullanılmayan Z:Z alanına doldurdum. Bu seriyi seçip-kestim, sonra da kullanılacağı alan olan A:A alanının son dolu satırından sonraki ilk boş satırına yapıştırdım.
Selam ve Saygılar...
Genişletmek için tıkla ...
Syn. behic26;
gönderdiğim dosyalarda nelerin olmadığını açıklarsanız yardımcı olmaya çalışayım.
 
Merhabalar Sn.ynmcany...
Öncelikle yardımlarınız için teşekkür ediyorum.

Birinci örnek:
Pul başlangıç numarasını soldaki sıfırları yazmadan kullanmak gerekiyor diye algıladım.
Pul başlangıç numaralarını soldaki sıfırlar olmadan 1 olarak yazıp 10 adet pul eklediğimde 10 uncu pul numarası bir hane artarak 11 haneli oluyor... 100 adet pul eklediğimde ise pul numarası 100 üncü pul numarası 11 hane oluyor.

Kullandığımız pul numaraları sizin mantığınızla gidersek ilk üç hane seri numarası sonraki altı hane pul numarası olmak üzere toplam 9 haneli bir kümeden oluşuyor, hane sayısı sabit kalmalı.

İkinci Örnek:
Birinci örnekteki gibi -bu sefer soldaki sıfırları da kullanarak- test edildiğinde aynı sonucu veriyor.
Ya da örneğin H12 serisinin 999991 ile başlayan puldan itibaren 20 adet pul eklendiğinde 10 uncu pulun numarası H121000000 10 hanelioluyor. Halbuki H12 serisi H12999999 ile bitip 10 uncu pul H13000000 olmalıydı ve 20 inci pulun numarası H13000010 olmalıydı.

Bu yapmaya çalıştığım çalışmayı kullanacak olan insanlar ilk üç hanenin seri, sonraki altı hanenin numara olduğunu kavrayamayacak kadar bilgisayara yabancılar. Bu nedenle numaraları bölerek kullanmak da istemiyorum.

Selamlar, Saygılar...
 
Syn. Behic26;
Sıfırlar yazılmadan yapılan örnekte düzenleme yaptım. Bu örnekte veriler ilk önce gizlediğim "A" sütununa gidiyor. Oradan eksik sıfırlar eklenerek "B" sutununa aktarılıyor.
ekteki dosyayı inceleyin.
İstediğiniz olduysa ikinci örneğide ( sıfırlar girilerek yazılan ) aynı şekilde düzenleyebilirim.
 

Ekli dosyalar

Son düzenleme:
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst