Veri getirme

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

Veri getirme

İleti#1)  CaKaL29 » 23 Nis 2018 17:07

Arkadaşlar ekteki excel dosyasında arıza sayfasında verilerin girişini yapacam diğer araçlara göre arama sayfasında plaka seçtiğimde arıza sayfasındaki verilerin getirmesini istiyorum bu konuda yardımcı olabilir misiniz ? Ama aynı plakalar ile veri girişi yaptığımda aynı plakaların verilerinin plakasını seçtiğimde hepsinin getirmesini istiyorum.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
CaKaL29
Yeni Başlamış
 
Adı Soyadı:Sinan Taş
Kayıt: 16 Ekm 2011 20:14
Konum: işçi
Meslek: Makinacı
Yaş: 28
İleti: 64
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

Cevap: Veri getirme

İleti#2)  Orion1 » 23 Nis 2018 17:19

Buyurun.
A1 hücresine plaka giriniz.:cool:
Dosya ektedir.
Kod: Tümünü seç
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh As Worksheet
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
Range("A3:K" & Rows.Count).ClearContents
Application.ScreenUpdating = False
Set sh = Sheets("Arıza")
sh.Range("A1").AutoFilter
sh.Range("A1").AutoFilter field:=1, Criteria1:=Target.Value
sh.Range("A1").CurrentRegion.Offset(1, 0).Copy Range("A3")
sh.Range("A1").AutoFilter
Application.ScreenUpdating = True
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Orion1
Siteye Alışmış
 
Adı Soyadı:Evren Gizlen
Kayıt: 18 Tem 2008 20:51
Meslek: inşaat teknikeri
İleti: 399
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Türkiye

Cevap: Veri getirme

İleti#3)  CaKaL29 » 23 Nis 2018 17:23

Birde hocam plaka giriniz kısmında aynı girdiğimiz plakaları tek plaka olarak gösterebilirmiyiz ?
Kullanıcı avatarı
CaKaL29
Yeni Başlamış
 
Adı Soyadı:Sinan Taş
Kayıt: 16 Ekm 2011 20:14
Konum: işçi
Meslek: Makinacı
Yaş: 28
İleti: 64
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

Cevap: Cevap: Veri getirme

İleti#4)  Orion1 » 23 Nis 2018 17:34

CaKaL29 yazdı:Birde hocam plaka giriniz kısmında aynı girdiğimiz plakaları tek plaka olarak gösterebilirmiyiz ?

Dosyanız ektedir.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Orion1
Siteye Alışmış
 
Adı Soyadı:Evren Gizlen
Kayıt: 18 Tem 2008 20:51
Meslek: inşaat teknikeri
İleti: 399
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Türkiye

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

Cevap: Veri getirme

İleti#5)  CaKaL29 » 23 Nis 2018 19:05

hocam veri almıyor
Kullanıcı avatarı
CaKaL29
Yeni Başlamış
 
Adı Soyadı:Sinan Taş
Kayıt: 16 Ekm 2011 20:14
Konum: işçi
Meslek: Makinacı
Yaş: 28
İleti: 64
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

Cevap: Cevap: Veri getirme

İleti#6)  Orion1 » 23 Nis 2018 20:16

CaKaL29 yazdı:hocam veri almıyor

Bende alıyor.:cool:

Resim
Kullanıcı avatarı
Orion1
Siteye Alışmış
 
Adı Soyadı:Evren Gizlen
Kayıt: 18 Tem 2008 20:51
Meslek: inşaat teknikeri
İleti: 399
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Türkiye

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Veri getirme

İleti#7)  CaKaL29 » 23 Nis 2018 20:27

öyle gösteriyorda hocam başka plaka ve aynı plaka ekleyince göstermiyor sadece ilk plakayı gösteriyor.
Kullanıcı avatarı
CaKaL29
Yeni Başlamış
 
Adı Soyadı:Sinan Taş
Kayıt: 16 Ekm 2011 20:14
Konum: işçi
Meslek: Makinacı
Yaş: 28
İleti: 64
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

Cevap: Cevap: Veri getirme

İleti#8)  Orion1 » 23 Nis 2018 20:32

CaKaL29 yazdı:öyle gösteriyorda hocam başka plaka ve aynı plaka ekleyince göstermiyor sadece ilk plakayı gösteriyor.

Göstermeyen dosyayı eklermisiniz?:cool:
Kullanıcı avatarı
Orion1
Siteye Alışmış
 
Adı Soyadı:Evren Gizlen
Kayıt: 18 Tem 2008 20:51
Meslek: inşaat teknikeri
İleti: 399
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Türkiye

Cevap: Veri getirme

İleti#9)  CaKaL29 » 23 Nis 2018 20:48

işte hocam.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
CaKaL29
Yeni Başlamış
 
Adı Soyadı:Sinan Taş
Kayıt: 16 Ekm 2011 20:14
Konum: işçi
Meslek: Makinacı
Yaş: 28
İleti: 64
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

Cevap: Veri getirme

İleti#10)  Orion1 » 23 Nis 2018 20:51

2 tane 86-123 gelmiş işte.En iyisi siz o dosyayı ekleyin bakayım. :cool:
Kullanıcı avatarı
Orion1
Siteye Alışmış
 
Adı Soyadı:Evren Gizlen
Kayıt: 18 Tem 2008 20:51
Meslek: inşaat teknikeri
İleti: 399
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Türkiye

Cevap: Veri getirme

İleti#11)  CaKaL29 » 23 Nis 2018 20:59

birde hocam listeden plaka seçince eklenen bilgiler dosyayı kaydedip kapatıp açınca geliyor neden acaba yoksa benim pc yavaş :)
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
CaKaL29
Yeni Başlamış
 
Adı Soyadı:Sinan Taş
Kayıt: 16 Ekm 2011 20:14
Konum: işçi
Meslek: Makinacı
Yaş: 28
İleti: 64
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

Cevap: Veri getirme

İleti#12)  Orion1 » 23 Nis 2018 21:04

Sorun yok.Filtreleme çalışıyor.
Combodan seçilen veri 2 tane varmış 2 taneside alt alta gelmiş.
Siz getirmiyor diye neye diyorsunuz anlamadım. :cool:
Kullanıcı avatarı
Orion1
Siteye Alışmış
 
Adı Soyadı:Evren Gizlen
Kayıt: 18 Tem 2008 20:51
Meslek: inşaat teknikeri
İleti: 399
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Türkiye

Cevap: Veri getirme

İleti#13)  CaKaL29 » 23 Nis 2018 21:13

Şuan getiriyor ama veri girişleri yaptıktan sonra kaydet diyorum excel dosyasını kapatıp açıyorum sonra verileri getiriyor benim pc yavaş olabilir demekki :) emeğinize sağlık hocam. Hocam 86-213 plakalı araç iş emrine mesela 07.07.2018 girdi kullanılan parçalar birden fazlaysa burada bu parçaları nasıl tek halde gösterebiliriz.
Kullanıcı avatarı
CaKaL29
Yeni Başlamış
 
Adı Soyadı:Sinan Taş
Kayıt: 16 Ekm 2011 20:14
Konum: işçi
Meslek: Makinacı
Yaş: 28
İleti: 64
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

Cevap: Cevap: Veri getirme

İleti#14)  Orion1 » 23 Nis 2018 21:21

CaKaL29 yazdı:Şuan getiriyor ama veri girişleri yaptıktan sonra kaydet diyorum excel dosyasını kapatıp açıyorum sonra verileri getiriyor benim pc yavaş olabilir demekki :) emeğinize sağlık hocam. Hocam 86-213 plakalı araç iş emrine mesela 07.07.2018 girdi kullanılan parçalar birden fazlaysa burada bu parçaları nasıl tek halde gösterebiliriz.

Siz sanırım comboboxa gelen veriler için diyorsunuz.
Şimdi comboyu deneyin,verileri alıyormu?
Dosya ektedir. :cool:
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Orion1
Siteye Alışmış
 
Adı Soyadı:Evren Gizlen
Kayıt: 18 Tem 2008 20:51
Meslek: inşaat teknikeri
İleti: 399
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Türkiye

Cevap: Veri getirme

İleti#15)  CaKaL29 » 23 Nis 2018 21:29

şimdi alıyor hocam.Teşekkürler emeğinize sağlık.Birde hocam 86-213 plakalı araç iş emrine mesela 07.07.2018 girdi kullanılan parçalar birden fazlaysa burada bu parçaları nasıl tek halde gösterebiliriz.
Kullanıcı avatarı
CaKaL29
Yeni Başlamış
 
Adı Soyadı:Sinan Taş
Kayıt: 16 Ekm 2011 20:14
Konum: işçi
Meslek: Makinacı
Yaş: 28
İleti: 64
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

Cevap: Veri getirme

İleti#16)  Orion1 » 23 Nis 2018 21:32

Giriş tarihi teke iniyor.
Dosya ektedir. :cool:
Kod: Tümünü seç
Private Sub ComboBox1_Change()
Dim sh As Worksheet
If ActiveSheet.Name <> "Araçlara Göre Arama" Then Exit Sub
Range("A3:K" & Rows.Count).ClearContents
Application.ScreenUpdating = False
Set sh = Sheets("Arıza")
sh.Range("A1").AutoFilter
sh.Range("A1").AutoFilter field:=1, Criteria1:=Sayfa2.ComboBox1.Value
sh.Range("A1").CurrentRegion.Offset(1, 0).Copy Range("A3")
sh.Range("A1").AutoFilter
Range("$A$2:$K$5").RemoveDuplicates Columns:=3, Header:=xlYes
Application.ScreenUpdating = True
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Orion1
Siteye Alışmış
 
Adı Soyadı:Evren Gizlen
Kayıt: 18 Tem 2008 20:51
Meslek: inşaat teknikeri
İleti: 399
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Türkiye

Cevap: Veri getirme

İleti#17)  Orion1 » 23 Nis 2018 21:34

İlgili satırı aşağıdaki ile değiştirin. :cool:
Kod: Tümünü seç
Range("$A$2:$K$" & Rows.Count).RemoveDuplicates Columns:=4, Header:=xlYes
Kullanıcı avatarı
Orion1
Siteye Alışmış
 
Adı Soyadı:Evren Gizlen
Kayıt: 18 Tem 2008 20:51
Meslek: inşaat teknikeri
İleti: 399
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Türkiye

Cevap: Veri getirme

İleti#18)  CaKaL29 » 23 Nis 2018 21:40

hocam gösterdiğim yeri tek hücrede yazma şansımız varmı ? emeğine sağlık.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
CaKaL29
Yeni Başlamış
 
Adı Soyadı:Sinan Taş
Kayıt: 16 Ekm 2011 20:14
Konum: işçi
Meslek: Makinacı
Yaş: 28
İleti: 64
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

Cevap: Veri getirme

İleti#19)  Orion1 » 23 Nis 2018 22:10

kepçe,krank piston alt alta yazılacakmı,yoksa onlar yazılmadan toplamları 2nci satıramı yazılacak. :cool:
Kullanıcı avatarı
Orion1
Siteye Alışmış
 
Adı Soyadı:Evren Gizlen
Kayıt: 18 Tem 2008 20:51
Meslek: inşaat teknikeri
İleti: 399
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Türkiye

Cevap: Veri getirme

İleti#20)  CaKaL29 » 23 Nis 2018 22:20

onlar alt alta yazılacak ama parça sayısı artabilir hocam.
Kullanıcı avatarı
CaKaL29
Yeni Başlamış
 
Adı Soyadı:Sinan Taş
Kayıt: 16 Ekm 2011 20:14
Konum: işçi
Meslek: Makinacı
Yaş: 28
İleti: 64
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

Sonraki

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google [Bot] ve 1 misafir

Bumerang - Yazarkafe