[Çözüldü]  Gruplama yapma

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

Gruplama yapma

İleti#1)  Koboy66 » 29 Kas 2018 11:24

Merhabalar gruplama yapıyorum ancak istediğim bilgileri yazarak tam anlatamam diye dosya yazdım.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Koboy66
Yeni Başlamış
 
Kayıt: 14 Kas 2017 22:16
Meslek: Yazılım
Yaş: 34
İleti: 13
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul Okmeydanı

Cevap: Gruplama yapma

İleti#2)  Ozan İLGÜN » 29 Kas 2018 12:37

Verileri Sayfa1den aldığını düşünerek yazdım kodları.
Ayrıca L4 P4 T4 hücrelerine veri doğrulama yapmanı öneririm.
Kod: Tümünü seç

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
        Case "$L$4"
      Call l4
         Case "$P$4"
        Call p4
           Case "$T$4"
        Call t4
            End Select
End Sub

Sub l4()
Sheet2.Range("J6:L" & Sheet2.Rows.Count).Borders.LineStyle = xlNone
Sheet2.Range("J6:L" & Sheet2.Rows.Count).ClearContents
Dim i As Integer
Dim row As Integer
row = 6

For i = 2 To Sheet1.Range("A" & Sheet1.Rows.Count).End(3).row
If Sheet1.Range("C" & i).Value = Sheet2.Range("L4").Value Then
row = row + 2
Sheet2.Range("J" & row).Value = "GRUP ÜYESİ"
Sheet2.Range("K" & row).Value = "GRUP ÜYESİ"
Sheet2.Range("L" & row).Value = "ÜCERETİ"
row = row + 1
Sheet2.Range("J" & row).Value = Sheet1.Range("A" & i).Value
Sheet2.Range("K" & row).Value = Sheet1.Range("C" & i).Value
Sheet2.Range("L" & row).Value = Sheet1.Range("B" & i).Value
With Sheet2.Range("J" & row - 1 & ":L" & row).Borders
        .LineStyle = xlContinuous
        .Color = vbBlack
        .Weight = xlThin
   End With
End If
Next i
End Sub
Sub p4()
Sheet2.Range("N6:P" & Sheet2.Rows.Count).Borders.LineStyle = xlNone
Sheet2.Range("N6:P" & Sheet2.Rows.Count).ClearContents
Dim i As Integer
Dim row As Integer
row = 6

For i = 2 To Sheet1.Range("A" & Sheet1.Rows.Count).End(3).row
If Sheet1.Range("C" & i).Value = Sheet2.Range("P4").Value Then
row = row + 2
Sheet2.Range("N" & row).Value = "GRUP ÜYESİ"
Sheet2.Range("O" & row).Value = "GRUP ÜYESİ"
Sheet2.Range("P" & row).Value = "ÜCERETİ"
row = row + 1
Sheet2.Range("N" & row).Value = Sheet1.Range("A" & i).Value
Sheet2.Range("O" & row).Value = Sheet1.Range("C" & i).Value
Sheet2.Range("P" & row).Value = Sheet1.Range("B" & i).Value
With Sheet2.Range("N" & row - 1 & ":P" & row).Borders
        .LineStyle = xlContinuous
        .Color = vbBlack
        .Weight = xlThin
   End With
End If
Next i
End Sub
Sub t4()
Sheet2.Range("R6:T" & Sheet2.Rows.Count).Borders.LineStyle = xlNone
Sheet2.Range("R6:T" & Sheet2.Rows.Count).ClearContents
Dim i As Integer
Dim row As Integer
row = 6

For i = 2 To Sheet1.Range("A" & Sheet1.Rows.Count).End(3).row
If Sheet1.Range("C" & i).Value = Sheet2.Range("T4").Value Then
row = row + 2
Sheet2.Range("R" & row).Value = "GRUP ÜYESİ"
Sheet2.Range("S" & row).Value = "GRUP ÜYESİ"
Sheet2.Range("T" & row).Value = "ÜCERETİ"
row = row + 1
Sheet2.Range("R" & row).Value = Sheet1.Range("A" & i).Value
Sheet2.Range("S" & row).Value = Sheet1.Range("C" & i).Value
Sheet2.Range("T" & row).Value = Sheet1.Range("B" & i).Value
With Sheet2.Range("R" & row - 1 & ":T" & row).Borders
        .LineStyle = xlContinuous
        .Color = vbBlack
        .Weight = xlThin
   End With
End If
Next i
End Sub

ozan.ilgun@boun.edu.tr

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 14:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 32
İleti: 2666
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



Cevap: Gruplama yapma

İleti#3)  Koboy66 » 29 Kas 2018 19:28

teşekkür ederim istediğim gibi olmuş yarın tam inceleyecem
Kullanıcı avatarı
Koboy66
Yeni Başlamış
 
Kayıt: 14 Kas 2017 22:16
Meslek: Yazılım
Yaş: 34
İleti: 13
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul Okmeydanı

Cevap: Gruplama yapma

İleti#4)  Ozan İLGÜN » 29 Kas 2018 20:43

Rica ederim. Benim için zevkti. Böyle konuları seviyorum.
ozan.ilgun@boun.edu.tr

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 14:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 32
İleti: 2666
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



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

Cevap: Gruplama yapma

İleti#5)  Koboy66 » 29 Kas 2018 22:14

Abi merhaba istediğim bu şekilde çalışıyor
Bi kaç istediğim yap olur mu ?
İsim üstte yazacak
Örnek :
Bölge : Anadolu

L4 M4 N4
Müşteri adı / açıklama / tutar
Erkan
Tavuk Kg. Tl
——————————————————
İsim üstte ismin altına bi satır ekleyin
Sayfa1 örnek b şutunu c şutunu alta yazabilir mi?
Müşteri adı bold olur mu?
Resim ekledin abi
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Koboy66
Yeni Başlamış
 
Kayıt: 14 Kas 2017 22:16
Meslek: Yazılım
Yaş: 34
İleti: 13
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul Okmeydanı

Cevap: Gruplama yapma

İleti#6)  Koboy66 » 29 Kas 2018 22:15

Abi yap yazmışımdır kusur bakma telefon san yazdım özür dilerim
Kullanıcı avatarı
Koboy66
Yeni Başlamış
 
Kayıt: 14 Kas 2017 22:16
Meslek: Yazılım
Yaş: 34
İleti: 13
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul Okmeydanı

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Gruplama yapma

İleti#7)  Koboy66 » 30 Kas 2018 14:49

Abi merhaba örnek dosya ekledim.Yaptığın kod çalışıyor tek sorun
aynı isimi bile alt alta yazıyor

şimdiden teşekkür ederim
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Koboy66
Yeni Başlamış
 
Kayıt: 14 Kas 2017 22:16
Meslek: Yazılım
Yaş: 34
İleti: 13
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul Okmeydanı

Cevap: Gruplama yapma

İleti#8)  Ozan İLGÜN » 30 Kas 2018 15:38

Pazartesi bilgisayara geçince bir bakayım. Elimden gelirse yaparım.
ozan.ilgun@boun.edu.tr

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 14:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 32
İleti: 2666
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



Cevap: Gruplama yapma

İleti#9)  Koboy66 » 30 Kas 2018 15:49

Çok teşekkür ederim sağolun
Kullanıcı avatarı
Koboy66
Yeni Başlamış
 
Kayıt: 14 Kas 2017 22:16
Meslek: Yazılım
Yaş: 34
İleti: 13
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul Okmeydanı

Cevap: Gruplama yapma

İleti#10)  Ozan İLGÜN » 03 Arl 2018 10:12

Kod: Tümünü seç

Private Sub Worksheet_Change(ByVal Target As Range)

Select Case Target.Address
        Case "$I$4"
      Call I4
         Case "$M$4"
        Call M4
           Case "$Q$4"
        Call Q4
            End Select
End Sub

Sub I4()
Sheet2.Range("G6:I" & Sheet2.Rows.Count).Borders.LineStyle = xlNone
Sheet2.Range("G6:I" & Sheet2.Rows.Count).ClearContents
Dim i As Integer
Dim row As Integer
row = 6

For i = 2 To Sheet1.Range("A" & Sheet1.Rows.Count).End(3).row
If Sheet1.Range("C" & i).Value = Sheet2.Range("I4").Value Then
row = row + 2
Sheet2.Range("G" & row).Value = "GRUP ÜYESİ"
Sheet2.Range("H" & row).Value = "GRUP ÜYESİ"
Sheet2.Range("I" & row).Value = "ÜCERETİ"
row = row + 1
Sheet2.Range("G" & row).Value = Sheet1.Range("A" & i).Value
Sheet2.Range("H" & row).Value = Sheet1.Range("C" & i).Value
Sheet2.Range("I" & row).Value = Sheet1.Range("B" & i).Value
With Sheet2.Range("G" & row - 1 & ":I" & row).Borders
        .LineStyle = xlContinuous
        .Color = vbBlack
        .Weight = xlThin
   End With
End If
Next i
End Sub
Sub M4()
Sheet2.Range("K6:M" & Sheet2.Rows.Count).Borders.LineStyle = xlNone
Sheet2.Range("K6:M" & Sheet2.Rows.Count).ClearContents
Dim i As Integer
Dim row As Integer
row = 6

For i = 2 To Sheet1.Range("A" & Sheet1.Rows.Count).End(3).row
If Sheet1.Range("C" & i).Value = Sheet2.Range("M4").Value Then
row = row + 2
Sheet2.Range("K" & row).Value = "GRUP ÜYESİ"
Sheet2.Range("L" & row).Value = "GRUP ÜYESİ"
Sheet2.Range("M" & row).Value = "ÜCERETİ"
row = row + 1
Sheet2.Range("K" & row).Value = Sheet1.Range("A" & i).Value
Sheet2.Range("L" & row).Value = Sheet1.Range("C" & i).Value
Sheet2.Range("M" & row).Value = Sheet1.Range("B" & i).Value
With Sheet2.Range("K" & row - 1 & ":M" & row).Borders
        .LineStyle = xlContinuous
        .Color = vbBlack
        .Weight = xlThin
   End With
End If
Next i
End Sub
Sub Q4()
Sheet2.Range("O6:Q" & Sheet2.Rows.Count).Borders.LineStyle = xlNone
Sheet2.Range("O6:Q" & Sheet2.Rows.Count).ClearContents
Dim i As Integer
Dim row As Integer
row = 6

For i = 2 To Sheet1.Range("A" & Sheet1.Rows.Count).End(3).row
If Sheet1.Range("C" & i).Value = Sheet2.Range("Q4").Value Then
row = row + 2
Sheet2.Range("O" & row).Value = "GRUP ÜYESİ"
Sheet2.Range("P" & row).Value = "GRUP ÜYESİ"
Sheet2.Range("Q" & row).Value = "ÜCERETİ"
row = row + 1
Sheet2.Range("O" & row).Value = Sheet1.Range("A" & i).Value
Sheet2.Range("P" & row).Value = Sheet1.Range("C" & i).Value
Sheet2.Range("Q" & row).Value = Sheet1.Range("B" & i).Value
With Sheet2.Range("O" & row - 1 & ":Q" & row).Borders
        .LineStyle = xlContinuous
        .Color = vbBlack
        .Weight = xlThin
   End With
End If
Next i
End Sub



Ben sorun göremedim.
ozan.ilgun@boun.edu.tr

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 14:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 32
İleti: 2666
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



Cevap: Gruplama yapma

İleti#11)  Koboy66 » 05 Arl 2018 10:17

Merhaba vaktim yoktu ançak bakabildim.

Resim ekledim anlatmak istediğim
hasan ismi alt alta 3 kez yazdırmış onu yerine hasan 1 kez yazacak altına açıklama gelecek ona bağlı
Kullanıcı avatarı
Koboy66
Yeni Başlamış
 
Kayıt: 14 Kas 2017 22:16
Meslek: Yazılım
Yaş: 34
İleti: 13
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul Okmeydanı

Cevap: Gruplama yapma

İleti#12)  Koboy66 » 05 Arl 2018 10:19

ORNEK.png
resim
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Koboy66
Yeni Başlamış
 
Kayıt: 14 Kas 2017 22:16
Meslek: Yazılım
Yaş: 34
İleti: 13
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul Okmeydanı

Cevap: Gruplama yapma

İleti#13)  Ozan İLGÜN » 06 Arl 2018 10:38

Toplayıp öyle mi yapacak.Olması gereken halini de elle hazırlayıp resim olarak gönderir misiniz?
ozan.ilgun@boun.edu.tr

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 14:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 32
İleti: 2666
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



Cevap: Gruplama yapma

İleti#14)  Koboy66 » 06 Arl 2018 10:39

Tamam abi gönderilirim teşekkür ederim
Kullanıcı avatarı
Koboy66
Yeni Başlamış
 
Kayıt: 14 Kas 2017 22:16
Meslek: Yazılım
Yaş: 34
İleti: 13
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul Okmeydanı

Cevap: Gruplama yapma

İleti#15)  Koboy66 » 06 Arl 2018 10:41

Abi bu konuya yardımcı olabilir misin

viewtopic.php?f=4&t=32055&p=235018#p235018
Kullanıcı avatarı
Koboy66
Yeni Başlamış
 
Kayıt: 14 Kas 2017 22:16
Meslek: Yazılım
Yaş: 34
İleti: 13
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul Okmeydanı


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot ve 3 misafir

Bumerang - Yazarkafe