Soru Koşula Göre, Kritere Uygun Verileri Listeleme

A

Adaletkubrasi

Normal Üye
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Merhaba kolay gelsin arkadaşlar

Elimde excel çalışma bir kitabım var bu çalışma kitabında ;

Anasayfa
Ak Sigorta
güneş sigorta
hdı sigorta
vs
gibi tek sayfadada veri doğrulama içinde firmalar mevcut olup hangi firmaya ait ciroyu getire biliyoruz

şimdi sizden yardım konusundaki isteğim ise bu çalışma sayfasında durmadan veri girileceği için kasmaması için ne yapılabilir..
 

Ekli dosyalar

Tarihe göre sırala Oylamaya göre sırala
Sayın @ozgurkelebekler .

Konu açarken, konu başlığının isteğinizi özetleyebilecek nitelikte olması gerekiyor. Bu konu başlığını ben düzenledim.

Konu açarken, cevabımın altındaki İMZA bölümünde yer alan açıklamalara uygun olarak
konu açmanız, forumun düzeni, benzer ihtiyacı olacak forum üyelerinin konu sayfasını ARAMA yaparken kolay bulmasını
sağlaması bakımından yararlı olur. Bu duruma özen göstermenizi rica ediyoruz.

Sorunuza gelince; Sigortalar isimli sayfanın A sütununu görünür hale getirin (liste sıra no yazdırmak için),
ardından alt taraftan Sigortalar sayfasının adına fareyle sağ tıklayarak KOD GÖRÜNTÜLEyi seçin,
açılacak VBA ekranında sağ taraftaki boş alana aşağıdaki kodu yapıştırın.
Sigortalar sayfasında mevcut tüm formülleri silebilirsiniz.

Artık D1 hücresinden şirket adını seçtiğinizde. istenilen veriler formülsüz olarak listelenir.

CSS: 
You must log in to view content
(39 satır)

.
 
Oyla 0 Olumsuz oyla
Ömer BARAN' Alıntı:
Sayın @ozgurkelebekler .

Konu açarken, konu başlığının isteğinizi özetleyebilecek nitelikte olması gerekiyor. Bu konu başlığını ben düzenledim.

Konu açarken, cevabımın altındaki İMZA bölümünde yer alan açıklamalara uygun olarak
konu açmanız, forumun düzeni, benzer ihtiyacı olacak forum üyelerinin konu sayfasını ARAMA yaparken kolay bulmasını
sağlaması bakımından yararlı olur. Bu duruma özen göstermenizi rica ediyoruz.

Sorunuza gelince; Sigortalar isimli sayfanın A sütununu görünür hale getirin (liste sıra no yazdırmak için),
ardından alt taraftan Sigortalar sayfasının adına fareyle sağ tıklayarak KOD GÖRÜNTÜLEyi seçin,
açılacak VBA ekranında sağ taraftaki boş alana aşağıdaki kodu yapıştırın.
Sigortalar sayfasında mevcut tüm formülleri silebilirsiniz.

Artık D1 hücresinden şirket adını seçtiğinizde. istenilen veriler formülsüz olarak listelenir.

CSS: 
You must log in to view content
(39 satır)

.
Genişletmek için tıklayın ...
merhaba ömer bey acaba anydesk versem bağlana bilirmisiniz bazı sorularımda var unuttum yazmaya
 
Oyla 0 Olumsuz oyla
Malesef öyle bir yöntem kullanamıyoruz.
Veri listeleme tamam mıdır?
-- Tamamsa konuyu ÇÖZÜLDÜ olarak işaretleyelim.
Varsa, aynı belgedeki başka ihtiyaçlar için yeni konu açın. Zira belge bazlı bir yaklaşım, "forum" mantığıyla bağdaşmıyor.
Forumda konuların, içerikleri itibariyle ayrı başlık olarak açılması, diğer forumdaşların da yararlanması bakımından gerekli.
-- Veri aktarma tamam değilse; hangi sigorta seçildiğinde hangi satırlarda sorun vardır, onu iletin bakayım.

.
 
Oyla 0 Olumsuz oyla
mesela ak sigorta seçildiğinde ak sigorta ya ait tüm bilgiler geliyor kasılmadan benim istediğim birde şu bu çalışma kitabına her gün veri girileceğinden en son dolu satırın bir altındaki satıra form denetimi ile veri nasıl gire bilirim.
çünkü her seferinde boş satıra inmek benim zamanımı alacak. bunun için bir vba kodu yazıla bilir mi?
 
Oyla 0 Olumsuz oyla
İlgili sayfanın en üstünde yeterince boş satır ayırıp o satırı veri giriş alanı olarak kullanmanız mümkün olabilir.
Verdiğim listeleme kodu da uygulanmış olarak, belgenizi buna göre düzenleyip, sayfaya bir adet düğme ekleyerek
yeni bir konu açarsanız mutlaka destek alırsınız.

.
 
Oyla 0 Olumsuz oyla
ozgurkelebekler' Alıntı:
mesela ak sigorta seçildiğinde ak sigorta ya ait tüm bilgiler geliyor kasılmadan benim istediğim birde şu bu çalışma kitabına her gün veri girileceğinden en son dolu satırın bir altındaki satıra form denetimi ile veri nasıl gire bilirim.
çünkü her seferinde boş satıra inmek benim zamanımı alacak. bunun için bir vba kodu yazıla bilir mi?
Genişletmek için tıklayın ...
Herhangi bir satırda iken Ctrl+Aşağı Ok ile en son dolu satıra otomatik olarak gelinebilir.
Yada forumda Kaydet , Sil , Değiştir diye aratırsanız Userform dan sayfaya kayıt yapan örneklere ulaşabilirsiniz.
 
Oyla 0 Olumsuz oyla
Merhaba arkadaşlar. Benim sorum şu alacak Excel çalışma kitabım da 1 adet forum denetimilerinden kullanmış olduğum combobox da (firma isimlerini)2 adet listbox da (Aylar ve ürünler) kullanmış bulunmaktayım .form denetiminden kullanmış olduğum 1 adet combobox ve 2 adet listbox karı (comboboc-a1) listboxları ise B1 ve C1 hücrelerine bagladım. Şimde sizden istediğim (a1)hücresine bağlamış olduğum firmaları =eğer(a1=1;"alorko" formülü ile getirdim j47 hücresine yazdırdı. Şimdi alorko firmasının ürünleri getirme istiyorum bunu nasıl yapacagim
 
Oyla 0 Olumsuz oyla
ömer bey hayırlı akşamlar

excel çalışma dosyasını siteye eklemem için 2 çalışma kitabını eklemem gerekli bu da zaman alacak diye düşünüyorum. Acaba anydesk versem göreseniz öyle çözüm üretsek olmazmı?
 
Oyla 0 Olumsuz oyla
Daha evvel de bu isteğinizle ilgili durumu yazmıştım.
Uzak bağlantı yapılacaksa, FORUM'un anlamı kalır mı sizce.

Forumda, benzer ihtiyacı/sorunu olan üyelerimizin, sorunlarına/ihtiyaçlarına daha hızlı ve kolay çözüm bulmasının sağlanması esas.
Bu nedenle malesef bu isteğinizin karşılanması mümkün değil.

İki tane belgenin farklı kaydet yöntemiyle kopyasını alıp, varsa özel bilgilerin silinerek (işlemle doğrudan ilgili ise bu verileri silmek yerine,
bunların yerine anlamlı, tutarlı ve gerçek verileri temsil edebilecek nitelikte başka veriler yazın) foruma eklenmesinin zor olmadığını düşünüyorum.

Zaten örnek belgede yüklü veri yığınının olması da çok anlaşılır değil. Büyük veri yığını olan örnek belge eklendiğinde akla gelen ilk durum;
üyenin destek istemediği, kendisinin yapması gereken bir işlemi yaptıracak birini aradığı şeklindedir.
Kaldı ki bu türden, kişiye özel bir çalışma isteniyorsa; forum sayfalarımızda üst banttaki DESTEK TALEBİ başlıklı ücretli bir alanı da mevcut.

İsteğiniz böyle değilse, örnek belge ekleyip, olması gereken durumu örneklendirerek, belgenizdeki ihtiyaç/sorunlarla ilgili
parça parça (işlem türü bazında) konular açarak yardım isteyebilirsiniz.

.
 
Oyla 0 Olumsuz oyla
merhb ömer bey

siteye yüklemiş olduğum sorunum için yazış olduğunuz macro kodunu Sigortalar sayfasına sağ tıklayarak ;
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [D1]) Is Nothing Then Exit Sub
VERI_GETIR
End Sub

Sub VERI_GETIR()
Dim ana(), snc()
Dim a, s As Worksheet
Dim krt As String: Dim sat, say, adt As Integer

Set a = ThisWorkbook.Sheets("ANASAYFA")
Set s = ThisWorkbook.Sheets("Sigortalar")

krt = s.[D1]
If krt = "" Then Exit Sub
ana = a.Range("B2:S" & a.Cells(Rows.Count, 2).End(3).Row).Value
adt = WorksheetFunction.CountIf(a.[E:E], krt)

ReDim snc(1 To adt, 1 To 18)

For sat = 1 To UBound(ana)
If ana(sat, 4) = krt Then
say = say + 1: ek = 0: snc(say, 1) = say
For sut = 2 To 18
If sut > 4 Then ek = 1
snc(say, sut) = ana(sat, sut + ek - 1)
Next
End If
Next
If say > 0 Then
s.Range("A4:R" & s.Cells(Rows.Count, 2).End(3).Row).ClearContents
s.[A4].Resize(say, 18) = snc: s.Columns.AutoFit
MsgBox "Veriler listelendi.", vbInformation, "::.. Ömer BARAN ..::"
Else
MsgBox "Kritere uygun veri yok !", vbCritical
End If
Erase ana: Erase snc

End Sub
. bu kodu yapıştırdım ama herhangi bir tekleme olmadığı için kod çalışmadı bunun için çombobox atayıp onunlamı tekleme yaptırmam gerekli
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
Sayın @ozgurkelebekler , mesajınızı fark etmemişim.
İhtiyacınızı görmüşseniz, sorunu halletmişseniz mesele yok.

Sorun/destek isteiğiniz devam ediyor mu bilmiyorum.
Son eklediğiniz belgeyle, konu açılış mesajının ekindeki belge arasında hiçbir alaka göremedim.
Belgede Sigortaar diye bir sayfa bile yok. Verdiğim kodların uygulandığı bir MODUL veya SAYFA KODUda göremedim.

İsteğinizi/sorunu son eklediğiniz belge üzerinden, sayfa adı/satır-sütun adı/numarası. nesne adı vs net olacak şekilde tarif ederseniz iyi olur.

İyi çalışmalar dilerim.
 
Oyla 0 Olumsuz oyla
Yanıt için giriş yapmanız veya üye olmanız gerekir.

Benzer Konular Popüler Daha Fazlası

Konuyu başlatan
A
Adaletkubrasi
Normal Üye
Katılım
Konu Bilgi
Durum
Soru 
Forum
Genel Excel Soruları
Başlangıç tarihi
Son yanıt tarihi
Cevaplar
15
Üst