istenilen veriyi sorgu ile çekmek

[onrays]

Merhaba,

Arkadaşlar ekte veri ve sorgu adı altında 2 sayfa bulunmakta,
Sorgu sayfasından istenilen kriter giriliyor, veri sayfasından da çekilmesi için yardımlarınızı beklemekteyim.

Teşekkür ederim.

 

[bedri41]

Ekteki dosyanızı inceleyin.
Kolay Gelsin

 

[onrays]

Hocam emeğine sağlık.

Bu olayı makro ile çözebilir miyiz. Veri olarak girilmesi gerekecek, bu durumda excel formül kasabilir. Makrolu çözüm ideal gibime geliyor.

Teşekkür ederim.

 

[Orion1]

Dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh As Worksheet, sat As Long
If Intersect(Target, [C1]) Is Nothing Then Exit Sub
Set sh = Sheets("veriler")
Range("B3:H" & Rows.Count).Clear
Application.ScreenUpdating = False
sat = sh.Cells(Rows.Count, "B").End(xlUp).Row
sh.Range("B2").AutoFilter
sh.Range("B2").AutoFilter field:=1, Criteria1:=[C1]
sh.Range("B2").CurrentRegion.Copy Range("B3")
sh.Range("B2").AutoFilter
Application.ScreenUpdating = True
End Sub

 

[emirhanq]

Dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh As Worksheet, sat As Long
If Intersect(Target, [C1]) Is Nothing Then Exit Sub
Set sh = Sheets("veriler")
Range("B3:H" & Rows.Count).Clear
Application.ScreenUpdating = False
sat = sh.Cells(Rows.Count, "B").End(xlUp).Row
sh.Range("B2").AutoFilter
sh.Range("B2").AutoFilter field:=1, Criteria1:=[C1]
sh.Range("B2").CurrentRegion.Copy Range("B3")
sh.Range("B2").AutoFilter
Application.ScreenUpdating = True
End Sub

Orion1 Üstadım,
VBA da çok iyi olmadıgım ve hatta acemi oldugum için eğer ki , Kabalık olmazsa hazırlamış oldugum bir excell dosyası için makro lama ve düzenleme konusunda bana yardımcı olabilirmisiniz...
Çok memnun olurum...
Saygılarımla....

 

[bedri41]

Hocamız yukarıda olayı çözmüş, amatör makrolu alternatif ekte

 

[emirhanq]

Hocamız yukarıda olayı çözmüş, amatör makrolu alternatif ekte

Keşke bende sizin kadar amatör olabilseydim

 

[Orion1]

Orion1 Üstadım,
VBA da çok iyi olmadıgım ve hatta acemi oldugum için eğer ki , Kabalık olmazsa hazırlamış oldugum bir excell dosyası için makro lama ve düzenleme konusunda bana yardımcı olabilirmisiniz...
Çok memnun olurum...
Saygılarımla....

buna vaktim yok.
siz başlayın.takıldığınız yerde forumda sorunuz.
kolay gelsin

 

[emirhanq]

buna vaktim yok.
siz başlayın.takıldığınız yerde forumda sorunuz.
kolay gelsin

Teşekkürler üstadım...

 

[onrays]

Orion1 ve bedri41 Hocam elinize sağlk.

Tarih girince tarihi almıyor. Aynı zamanda tarihi alması şahsım adına çok daha kullanışlı olacaktır.

Yardımlarınız için Teşekkür ederim.