[Yardım]  Kod hakkında yardım

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

Kod hakkında yardım

İleti#1)  pasha22 » 06 Kas 2018 14:36

Merhabalar,
Tarihe göre veri çektiğim dosyada "şablon" sayfasında ilgili yere tarih girince, "tüm grup kodları" sayfasında bulunan her kişiye ait kodları "sıralama" sayfasındaki sıraya göre şablon sayfasına çekmektedir.
Ancak verileri çekerken "tüm grup kodları" sayfasındaki kodların karşısındaki isimleri 4 lü olarak çekmektedir.
Ben oradaki verileri 4' lü sıraya bağlı kalmadan karışık yazınca aynı sayfaya nasıl çekebilirim.

Örnek: D1, D2, D3, D4 ya da D5, D6, D7, D8 birer ekip olduğu için sıralı ekip geliyor ancak ben "sıralama" sayfasında bazen ekiplerin içinde değişiklik yaparak D1,D3,D7,D8 gibi karışık olarak 4' lü yazınca error veriyor.

Bunu nasıl yapabilirim.
Kodlar aşağıda, örnek dosya ektedir.

Saygılarımla.

Kod: Tümünü seç
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim S1 As Worksheet, STR As Long, STN As Long, S2 As Worksheet
Dim STR1 As Range, DRS As Range, SBT As Variant
Application.ScreenUpdating = False
Application.EnableEvents = False
If Intersect(Target, Range("H1")) Is Nothing Then _
Application.EnableEvents = True: Application.ScreenUpdating = True: _
Exit Sub
Range("B7:I10").Clear: Range("B13:I16").Clear
Range("B19:I22").Clear: Range("B25:I28").Clear
Range("B31:I34").Clear: Range("B37:I40").Clear
SBT = ActiveCell.Address
Set S1 = Sheets("SIRALAMA"): Set S2 = Sheets("TÜM GRUP KODLARI")
With WorksheetFunction
STR = .Match(Range("H1"), S1.Range("A:A"), 0)
End With
For STN = 2 To S1.Cells(STR, Columns.Count).End(xlToLeft).Column Step 4
If S1.Cells(STR, STN) <> Empty Then
Set DRS = Range("B:Y").Find(S1.Cells(1, STN), , , xlWhole)
Set STR1 = S2.Range("A:J").Find(S1.Cells(STR, STN), , , xlWhole)
S2.Range(S2.Cells(STR1.Row, STR1.Column + 1).Address & ":" & S2.Cells(STR1.Row + 3, STR1.Column + 2).Address).Copy
Range(Cells(DRS.Row + 1, DRS.Column).Address).PasteSpecial
Application.CutCopyMode = False
End If
Next
Range(SBT).Select
Application.EnableEvents = True: Application.ScreenUpdating = True
End Sub
Kullanıcı avatarı
pasha22
Yeni Başlamış
 
Adı Soyadı:Selçuk YILDIRIM
Kayıt: 12 Şub 2012 12:32
Konum: İstanbul
Meslek: serbest
Yaş: 41
İleti: 29
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Kod hakkında yardım

İleti#2)  pasha22 » 05 Ekm 2019 20:06

Merhabalar;
Konu ile ilgili örnek dosya ekledim, yardımcı olabilir misiniz?
Saygılarımla.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
pasha22
Yeni Başlamış
 
Adı Soyadı:Selçuk YILDIRIM
Kayıt: 12 Şub 2012 12:32
Konum: İstanbul
Meslek: serbest
Yaş: 41
İleti: 29
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Kod hakkında yardım

İleti#3)  pasha22 » 09 Ekm 2019 19:06

Konu günceldir.
Kullanıcı avatarı
pasha22
Yeni Başlamış
 
Adı Soyadı:Selçuk YILDIRIM
Kayıt: 12 Şub 2012 12:32
Konum: İstanbul
Meslek: serbest
Yaş: 41
İleti: 29
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Kod hakkında yardım

İleti#4)  pasha22 » 14 Ekm 2019 22:59

...
Kullanıcı avatarı
pasha22
Yeni Başlamış
 
Adı Soyadı:Selçuk YILDIRIM
Kayıt: 12 Şub 2012 12:32
Konum: İstanbul
Meslek: serbest
Yaş: 41
İleti: 29
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

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

Forum Genel Makro Soruları

Online Kullanıcılar

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

Bumerang - Yazarkafe