[Yardım]  Belirli Sayıda Gruplama

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Belirli Sayıda Gruplama

İleti#1)  soner36 » 16 Haz 2022 16:30

Merhabalar,

Ekteki dosyamın dışında elimde bulunan bir dosyada yaklaşık 4 bin kişilik bir liste var ve ben 25er kişilik gruplar halinde ayırmak yani E sütununa Grup1-Grup2 veya Çekmece1-Çekmece2 olacak şekilde bir kombinasyon yapmak istiyorum bu konuda yardımcı olabilir misiniz.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
soner36
 
Kayıt: 16 Haz 2022 16:23
Meslek: Muhasebe
Yaş: 31
İleti: 8
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Yıllık Maaş Bordrosu Hesaplama 2022

Cevap: Belirli Sayıda Gruplama

İleti#2)  yusuf43 » 16 Haz 2022 19:10

Örnek çalışma ektedir kolay gelsin.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
yusuf43
Site Dostu
 
Kayıt: 19 May 2021 12:00
Meslek: EV HANIMI
Yaş: 46
İleti: 723
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: KÜTAHYA

Cevap: Cevap: Belirli Sayıda Gruplama

İleti#3)  soner36 » 17 Haz 2022 09:31

Merhabalar, öncelikle emeğiniz için teşekkür ederim, fakat E sütununa otomatik olarak 25erli gruplar halinde Çekmece1-2-3-4 ... olarak ilerlemesini istemiştim,

yusuf43 yazdı:Örnek çalışma ektedir kolay gelsin.
Kullanıcı avatarı
soner36
 
Kayıt: 16 Haz 2022 16:23
Meslek: Muhasebe
Yaş: 31
İleti: 8
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Belirli Sayıda Gruplama

İleti#4)  soner36 » 17 Haz 2022 14:06

Tekrardan Merhabalar, E sütununa 25li olacak halde Grup1, Grup2 veya Çekmece1,Çekmece2 diye ilerleyecek şekilde örnek olarak 150 satırlık veri olduğunda 126 ve 150 aralığına Grup6 yazacak gibi ilerleyecek şekilde bir makro yapmamız mümkün müdür acaba?
Kullanıcı avatarı
soner36
 
Kayıt: 16 Haz 2022 16:23
Meslek: Muhasebe
Yaş: 31
İleti: 8
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Belirli Sayıda Gruplama

İleti#5)  halily » 17 Haz 2022 14:43

25lik bölümlere ayırmak sorun değil ama
1 - E sütununun isimlendirme mantığını anlamadım neye göre çekmece yada Grup değerini verecek
2 - her 25ten sonra başa mı dönecek? grup1,grup2..........grup25 26. kayıtta tekrar grup1,grup2.... gibi
3 - 2 grup arasına boş satır falan eklenecek mi?
olması gereken sonucu gösteren ve neden öyle olması gerektiğini anlatan örnek dosya eklerseniz yardımcı olmaya çalışırız
iyi çalışmalar
Kullanıcı avatarı
halily
Site Dostu
 
Kayıt: 23 May 2019 13:16
Meslek: yok
Yaş: 42
İleti: 912
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

Cevap: Cevap: Belirli Sayıda Gruplama

İleti#6)  soner36 » 17 Haz 2022 14:52

Merhabalar, ilginiz için teşekkür ederim.

1- İsimlendirme mantığındaki çekmece veya grup kişileri 25lik dosyalara koymamızdan dolayıdır.
2- Başa dönmeyecek mesela 2700 satırlık veri attığımız da Grup108 olacak şekilde sonsuz olması daha iyi olacaktır.
3- Eğer mümkünse evet daha iyi olabilir.
Örnek dosyayı ilk mesajımda eklemiştim sanırım görmediniz.
Şimdiden yardımcı olacak herkese teşekkür ederim.

halily yazdı:25lik bölümlere ayırmak sorun değil ama
1 - E sütununun isimlendirme mantığını anlamadım neye göre çekmece yada Grup değerini verecek
2 - her 25ten sonra başa mı dönecek? grup1,grup2..........grup25 26. kayıtta tekrar grup1,grup2.... gibi
3 - 2 grup arasına boş satır falan eklenecek mi?
olması gereken sonucu gösteren ve neden öyle olması gerektiğini anlatan örnek dosya eklerseniz yardımcı olmaya çalışırız
iyi çalışmalar
Kullanıcı avatarı
soner36
 
Kayıt: 16 Haz 2022 16:23
Meslek: Muhasebe
Yaş: 31
İleti: 8
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Belirli Sayıda Gruplama

İleti#7)  halily » 17 Haz 2022 15:27

örnek dosyanızı gördüm ama ben onu girdi dosyanız olarak düşündüm
boş satır eklenebilir ama o zaman da şu sorun çıkar bu sayfa üzerinde yeniden işlem yaparsanız hem satır kayması olur hem de 2. boş satır daha eklenmiş olur
yapacağınız işlem tek seferlik mi?
aynı sayfa veri üzerine tekrar işlem yapılabilir mi?
son olarak ne zaman çekmece kullanılacak ne zaman grup anlamış değilim!
Kullanıcı avatarı
halily
Site Dostu
 
Kayıt: 23 May 2019 13:16
Meslek: yok
Yaş: 42
İleti: 912
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

Cevap: Cevap: Belirli Sayıda Gruplama

İleti#8)  soner36 » 17 Haz 2022 16:07

Merhabalar, boş satır eklenmese de olabilir çok sorun değil bizim için. Sadece Grup ismi yazmamız yeterli olacaktır veri üzerinde bir başka işlem yapmayacağız. Her ay yapmamız gerekecek bir işlem olduğundan dolayı yardımlarınıza ihtiyacım var.
Çekmece veya grup ayrı ayrı kullanılmayacak tamamen isteğe göre 1 tanesi kullanılabilir.

halily yazdı:örnek dosyanızı gördüm ama ben onu girdi dosyanız olarak düşündüm
boş satır eklenebilir ama o zaman da şu sorun çıkar bu sayfa üzerinde yeniden işlem yaparsanız hem satır kayması olur hem de 2. boş satır daha eklenmiş olur
yapacağınız işlem tek seferlik mi?
aynı sayfa veri üzerine tekrar işlem yapılabilir mi?
son olarak ne zaman çekmece kullanılacak ne zaman grup anlamış değilim!
Kullanıcı avatarı
soner36
 
Kayıt: 16 Haz 2022 16:23
Meslek: Muhasebe
Yaş: 31
İleti: 8
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Belirli Sayıda Gruplama

İleti#9)  halily » 17 Haz 2022 16:30

aşağıdaki kodu dener misiniz?
Kod: Tümünü seç
Sub xBol()
Set ws = Sheets("sayfa1")
sonstr = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
DzVeri = ws.Range("E2:E" & sonstr).Value2
xSonDgr = "ÇEKMECE "
For x = 1 To sonstr - 1
    tDgr = (x - 1) \ 25
    DzVeri(x, 1) = xSonDgr & tDgr + 1
Next x
ws.Range("E2:E" & sonstr) = DzVeri
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
halily
Site Dostu
 
Kayıt: 23 May 2019 13:16
Meslek: yok
Yaş: 42
İleti: 912
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

Cevap: Cevap: Belirli Sayıda Gruplama

İleti#10)  soner36 » 17 Haz 2022 16:51

Hocam elinize emeğinize sağlık çok teşekkür ederim. Şuan için bu işimizi görür gerçekten sağolun.
V1.2 olarak da Çekmece numarası değiştikten sonra bir boş sütun koyarsak da süper olur :)
[TESEKKÜR]

halily yazdı:aşağıdaki kodu dener misiniz?
Kod: Tümünü seç
Sub xBol()
Set ws = Sheets("sayfa1")
sonstr = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
DzVeri = ws.Range("E2:E" & sonstr).Value2
xSonDgr = "ÇEKMECE "
For x = 1 To sonstr - 1
    tDgr = (x - 1) \ 25
    DzVeri(x, 1) = xSonDgr & tDgr + 1
Next x
ws.Range("E2:E" & sonstr) = DzVeri
End Sub
Kullanıcı avatarı
soner36
 
Kayıt: 16 Haz 2022 16:23
Meslek: Muhasebe
Yaş: 31
İleti: 8
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Belirli Sayıda Gruplama

İleti#11)  halily » 17 Haz 2022 17:11

boş satır mı eklenecek?
eklenebilir ama dediğim gibi her çalıştığında boş satırlarda da veri olduğunu varsayıp ona göre işlem yapar
Kullanıcı avatarı
halily
Site Dostu
 
Kayıt: 23 May 2019 13:16
Meslek: yok
Yaş: 42
İleti: 912
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

Cevap: Cevap: Belirli Sayıda Gruplama

İleti#12)  soner36 » 17 Haz 2022 17:30

Anladım hocam eğer mümkünse yapabilirsek çok sevinirim.

halily yazdı:boş satır mı eklenecek?
eklenebilir ama dediğim gibi her çalıştığında boş satırlarda da veri olduğunu varsayıp ona göre işlem yapar
Kullanıcı avatarı
soner36
 
Kayıt: 16 Haz 2022 16:23
Meslek: Muhasebe
Yaş: 31
İleti: 8
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Belirli Sayıda Gruplama

İleti#13)  halily » 17 Haz 2022 17:53

isterseniz sonucu başka sayfaya yazacak şekilde de değiştirilebilir
Kod: Tümünü seç
Sub xBol_Bosluk()
Set ws = Sheets("Sayfa1")
sonstr = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
DzVeri = ws.Range("A2:E" & sonstr).Value2
xSonDgr = "ÇEKMECE "
EkStr = (sonstr - 1) \ 25
Dim SonDz As Variant
ReDim SonDz(sonstr + EkStr, 4)

For x = 1 To sonstr - 1
    tDgr = (x - 1) \ 25
    For xStn = 0 To 4
    DzVeri(x, 5) = xSonDgr & tDgr + 1
        SonDz(x - 1 + tDgr, xStn) = DzVeri(x, xStn + 1)
    Next xStn
Next x
ws.Range("A2:E" & sonstr + EkStr) = SonDz

End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
halily
Site Dostu
 
Kayıt: 23 May 2019 13:16
Meslek: yok
Yaş: 42
İleti: 912
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

Cevap: Cevap: Belirli Sayıda Gruplama

İleti#14)  soner36 » 17 Haz 2022 18:16

Hocam çok teşekkür ederim elinize emeğinize sağlık, ilginiz için de ayrıca teşekkür ederim.
Sağlıklı günler...
[TESEKKÜR]

halily yazdı:isterseniz sonucu başka sayfaya yazacak şekilde de değiştirilebilir
Kod: Tümünü seç
Sub xBol_Bosluk()
Set ws = Sheets("Sayfa1")
sonstr = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
DzVeri = ws.Range("A2:E" & sonstr).Value2
xSonDgr = "ÇEKMECE "
EkStr = (sonstr - 1) \ 25
Dim SonDz As Variant
ReDim SonDz(sonstr + EkStr, 4)

For x = 1 To sonstr - 1
    tDgr = (x - 1) \ 25
    For xStn = 0 To 4
    DzVeri(x, 5) = xSonDgr & tDgr + 1
        SonDz(x - 1 + tDgr, xStn) = DzVeri(x, xStn + 1)
    Next xStn
Next x
ws.Range("A2:E" & sonstr + EkStr) = SonDz

End Sub
Kullanıcı avatarı
soner36
 
Kayıt: 16 Haz 2022 16:23
Meslek: Muhasebe
Yaş: 31
İleti: 8
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Belirli Sayıda Gruplama

İleti#15)  halily » 17 Haz 2022 19:12

Rica ederim
İyi çalışmalar
Kullanıcı avatarı
halily
Site Dostu
 
Kayıt: 23 May 2019 13:16
Meslek: yok
Yaş: 42
İleti: 912
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google [Bot], Google Adsense [Bot] ve 5 misafir

Bumerang - Yazarkafe