Listeden Seçilene Göre Aktarım (Makrolu)

[baydeniro]

Arkadaşlar Merhaba. Listeden yapılacak seçimdeki kritere göre verilerin olduğu tablodan verileri yan sayfaya aktaracak bir makroda şöyle bir sıkıntı var. Benim makroyu oluştururken seçtiğim kriterler, makroyu tekrar çalıştırdığımda güncellenmiyor. En son hangi kritere göre veriler derlenmişse hepsi o en sonuncu kritere göre aktarılıyor. Aslında uzun yazdığıma bakmayın, olay daha basit.

Ekteki dosyadaki DATA sayfasındaki verileri E17 hücresindeki seçime göre yan sayfalara aktaran bir makro var. RAPOR AKTAR makrosunu oluştururken Samsun ve Erzurum diye ayrı ayrı derlediği ve aktardığı halde Makroyu çalıştırdığımda sadece Erzurum'a göre Samsun'u da derleyip aktarıyor. Bu makroyu nasıl güncellemek gerekir ?

 

[Korhan Ayhan]

Selamlar,

Ekte örnek dosyanız üzerinde gerekli düzenlemeleri yaptım. İncelermisiniz.

 

[baydeniro]

Sayın Cost Control her zamanki gibi çok yardım sevesiniz. Şu anda bulunduğum yerde nedense dosyayı makrolu olarak açmıyor. Makroyu metin olarak yanıtlama bölümüne kopyalamanız mümkün mü !!!

 

[Korhan Ayhan]

Selamlar,

DATA isimli sayfanızda A sütununu tamamen silin. RAPOR ismi ile yapmış olduğunuz ad tanımlamasınıda silin. Bu sayfanın kod bölümüne aşağıdaki kodu uygulayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [D17]) Is Nothing Then Exit Sub
    If Target <> "" Then
    [A19:D65536].ClearContents
    Satır = 19
    For X = 2 To 11
    If Cells(X, 2) = Target Then
    Range(Cells(Satır, 2), Cells(Satır, 4)).Value = Range(Cells(X, 2), Cells(X, 4)).Value
    Satır = Satır + 1
    End If: Next
    Son_Satır = [B65536].End(3).Row
    If Son_Satır = 19 Then
    [A19] = 1
    ElseIf Son_Satır = 20 Then
    [A19] = 1: [A20] = 2
    ElseIf Son_Satır > 20 Then
    [A19] = 1: [A20] = 2
    [A19:A20].AutoFill Destination:=Range("A19:A" & Son_Satır), Type:=xlFillDefault
    End If: End If
End Sub

Boş bir modülede aşağıdaki kodu uygulayın.

Sub RAPOR()
    'Ctrl+Shift+A
    On Error GoTo Devam
    Sheets("DATA").Select
    If [A19] = "" Then
    MsgBox "AKTARILACAK VERİ BULUNAMAMIŞTIR !", vbExclamation, "UYARI !"
    Exit Sub: End If
    Sheets("" & [D17]).Select
    Sheets("DATA").Range("A18:D" & Sheets("DATA").[A65536].End(3).Row).Copy [A1]
    Cells.EntireColumn.AutoFit
    MsgBox "VERİLERİ AKTARILMIŞTIR.", vbInformation
    Exit Sub
Devam:
    Sheets.Add After:=Worksheets(Worksheets.Count)
    ActiveSheet.Name = Sheets("DATA").[D17]
    Sheets("DATA").Range("A18:D" & Sheets("DATA").[A65536].End(3).Row).Copy [A1]
    Cells.EntireColumn.AutoFit
    MsgBox "VERİLERİ AKTARILMIŞTIR.", vbInformation
End Sub

 

[baydeniro]

Sayıb Cost Control çok teşekkürler. Bu çözümü de kullanacağım. Ancak şöyle bir durum var. Bunu uygulayacağımız arkadaşın kullandığı dosyanın yapısı bu tür bir makronun kullanımına müsait değil. Şöyle bir olabilir mi ?

Şehir seçimine endeksli olarak oluşan verilen makro iiçnde update halleriyle aktarılması...

 

[evrengzip]

Slam arkadaşlar
aranızda yeniyim ve ilk defa bir forma katılıyorum neyi nereden yapacağımıda bilmiyorum, onun için şimdiden sürçü klavye edersem affola
Bir sorm olacak; excelde aynı satır ve fakat farklı sütünlardaki sayıların en yükseğini vede en küçüğünü bulmak ve bunu renkli olarak belirtmek istiyorum.Nasıl yapıldığını eminim benden başka herkes biliyordur, lütfen çok acil cevap verebilirmisiniz.Sizin anlayacağınız fiyat karşılaştırması yapmam lazım.Teşekkürler

 

[Ferhat Pazarçevirdi]

Foruma hoşgeldiniz. Sorularınızı uygun bir bölümde yeni bir başlık açarak sorarsanız, daha çabuk cevap alabilirsiniz.

Böylelikle; -Şu anda olduğu gibi- işlenen bir konu başlığı altında, eğer konuyla ilişkisi olmayan başka bir soru sormazsanız, araştırma yapan arkadaşların işi biraz daha kolaylaşır..

Ekteki dosyayı inceleyiniz.

Burada koşullu biçimlendirme ve formuller kullanımıştır.

 

[evrengzip]

Çok teşekkür ederim
bu koşullu biçimlendirmede pek başarılı olamadım ama yolladığınız dosyadan =mak ve =min ile yapıldığını anladım ve yaptımda.Ama şimdi benim için en önemli olan renklendirme o renkendirmeyi ellemi yaptınız yoksa otomatik oluyormu, yani sayı hangi renkse hücresindekide o rengi otomatik alabilyormu?Öyle olursa işim kolaylaşacak.Teşekkür ederim

 

[baydeniro]

evrengzip lütfen sorularını önce Arama özelliği ile arayarak daha önce forumda yer alıp almadığını kontrol et ve örnek olabilecek yerleri incele. Gerçekten forumda yok ise Yeni konu aç. Bu şekilde başka konular üzerinden ilgisiz sorular sormak forum formatına uymuyor.