Sütunda bulunan mahkeme adlarına göre arama yapma

[ferhatgurbuz]

Arkadaşlar aşağıdaki kodu uyarlamaya çalışıyorum. Kodu anlamadığım için çözemedim. BENİM YAPMAK İSTEDİĞİM DATA SAYFASINDAN VERİLERİ ÖZEL SAYFASINA AKTARMAK





Private Sub CommandButton1_Click()
On Error Resume Next
If TextBox1 = "" Then
MsgBox ("Mahkeme Adını Giriniz")
Exit Sub
End If
Sheets("Özel").Select
Sheets("Özel").Range("bw11:bw21").ClearContents
c = 0
sat = 0
Sheets("Özel").[k1] = Now
Sheets("Özel").[k2] = 1
For a = 8 To Sheets("Data").Cells(65536, 2).End(xlUp).Row + 8
tarih = TextBox1.Value
If Sheets("Data").Cells(a, 9).Value = tarih Then
c = c + 1
Sheets("Özel").Cells(c + 7, 1) = Sheets("Data").Cells(a + sat, 2).Value
Sheets("Özel").Cells(c + 7, 2) = Sheets("Data").Cells(a + sat, 3).Value
Sheets("Özel").Cells(c + 7, 3) = Sheets("Data").Cells(a + sat, 4).Value
If c / 14 = Int(c / 14) Then
c = 0
soru = MsgBox("SAYFA DOLDU,EVET DERSENİZ YAZDIRDIKTAN SONRA DEVAM EDİLECEKTİR", vbYesNo, "YAZDIRILMADAN DEVAM EDİLECEKTİR")
If soru = vbYes Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If
Sheets("Özel").Range("A8:C21").ClearContents
Sheets("Özel").[k2] = Sheets("Özel").[k2] + 1
End If
End If
Next a
End Sub

 

[ferhatgurbuz]

arkadaşlar inanki çok çaresiz kaldım. Yani gözlerim bozuldu formu takip etmekten. Aceba yardım edecek birileri veya cevap yazan birileri var mı diye

biliyorum soru eksik ve yetersiz ama birazcık ucundan tutarsak olur inşallah

 

[ferhatgurbuz]

Bu son mesajımdır. Artık ümidim kalmadı.

Arkadaşlar kaç gündür uğraşıyorum. Ne ben derdimi tam olarak anlatabildim. Nede sizlerden biri bana derdimi sordu. Haklısınız sizler mecbur değilsiniz. Ama ne olsun çarasizlik işte.

Aşağıda kendime bir önnek dosya buldum . Ama biraz değil epeyce bir beceriksiz olduğum için uyarlamayı başaramadım. Sizden tek ricam aşağıdaki sayfada olduğu gibi Kontrol listesindeki verileri Boya kontrol listesine nasıl aktarıyorsa



Data sayfasındaki verileri Özel sayfasına aktarmasını istiyorum.


Sadece kontrol listesinde tarihe göre arayıp buluyor. Data sayfasında ise BW sütununda bulunan Mahkeme Adlarına göre arama yapsın.

İlgilenen arkadaşlara çok çok teşekkür ederim. Ne olur bu kardeşinizi kırmayın.

 

[ferhatgurbuz]

Beni bu siteden atana kadar başınızı ağrıtmaya devam edeceğim arkadaşlar

 

[Mahmut Kök]

Ekteki örneği inceleyiniz. İnşallan doğru anlamış ve doğru yapmışımdır.

 

[ferhatgurbuz]

EVET BENİM İSTEDİĞİM GİBİ OLMUŞ YALNIZ BİR KAÇ DÜZELTME İSTİYORUM.

Mahkeme adını seçtikten sonra aratınca zannedersem ilk 10 taneyi önce listeliyor. sonra diğerlerini listeliyor. Ben istiyorum ki hepsini listelesin

 

[Mahmut Kök]

EVET BENİM İSTEDİĞİM GİBİ OLMUŞ YALNIZ BİR KAÇ DÜZELTME İSTİYORUM.

Mahkeme adını seçtikten sonra aratınca zannedersem ilk 10 taneyi önce listeliyor. sonra diğerlerini listeliyor. Ben istiyorum ki hepsini listelesin

Örnek gösterdiğiniz diğer uygulamada da buna benzer bir durum vardı; ayrıca 10 veriden fazlasını da alta eklersek, altta TOPLAM satırı oluşturmuşsunuz. O yüzden 10'ar 10'ar yazdırma yoluna gitmiştim. Eğer hepsini tek seferde yazırmak istiyorsanız, aşağıdaki kırmızı renkle gösterilen
kodları siliniz.

If Trim(S1.Cells(a, "bw")) = mah Then
[COLOR=red]s = s + 1
If s > 10 Then
MsgBox "Bu bölümde mevcut veri yazdırılacak"
'yazdırma kodu bu satıra gelecek.
s2.Range("a11:bw20").ClearContents
s = 0
End If[/COLOR]

 

[ferhatgurbuz]

haklısınız onları düşünmemiştim. yukarıdaki düzeltmeyi yaptım ancak diyelimki 1.İdare mahkemesini arattım ve ekrana bilgiler geldi
arkasından diğer bir veri aratıyorum. Bu seferde SADECE İLK SATIRA BİR KİŞİ Yİ GETİRİYOR. YANİ DİĞERLERİ AYNEN KALIYOR.

Bu arada birşey farkettim. Eğer önceden dolu olan satırları silersem. sorun yok yani ikinci veriyi de listeliyor. bunun için ne yapabiliriz.

 

[Skorpiyon]

Sayın ferhatgurbuz,

Sayın mesleki sorununuza çözüm getirmiş ama Ek'teki dosyayıda bir inceleyiniz. Belki bu şekilde de olabilir.

Saygılarımla...

 

[ferhatgurbuz]

arkadaşlar 8. Mesajda bahsettiğim olay sanırım " ClearContents " işlevi. Ama ben bunu yapamıyorum.

Yani anlatmak istediğim 5. Mesajdaki örnek dosyadaki olayda birinci veriyi arattıktan sonra ikinci veriyi aratırken önceki bulunan verilerin silinip yenilerinin yerine yazılması gibi

 

[ferhatgurbuz]

Sadece " Özel " sayfası için geçerli olsun

Private Sub ComboBox1_Change()
[A11:BY25] = Empty
End Sub




aşağıdaki işlevi yapan userformu her sayfada açabiliyorum. Ama yukarıdaki kodun yani A11 ile BY25 arasındaki verilerin silinmesini ise sadece " Özel " sayfası ile sınırlı kalmasını istiyorm.Diğer Türlü formun açık olduğu sayfada işlem yaparsam o sayfadaki bilgileri siliyor.



Private Sub CommandButton1_Click()
Set S1 = Sheets("Data")
Set s2 = Sheets("ÖZEL")
For a = 11 To S1.[bw65535].End(3).Row
mah = ComboBox1
If Trim(S1.Cells(a, "bw")) = mah Then
sat = s2.[BW20].End(3).Row + 1
If sat = 10 Then sat = 11
s2.Range("A" & sat & ":BW" & sat).Value = S1.Range("A" & a & ":BW" & a).Value
End If
Next
MsgBox "İŞLEM BİTTİ"
End Sub

Private Sub UserForm_initialize()
Set S1 = Sheets("Data")
For a = 11 To S1.[bw65535].End(3).Row
V = 0
mah = Trim(S1.Cells(a, "bw"))
For b = 0 To ComboBox1.ListCount - 1
If ComboBox1.List(b) = mah Then
V = 1
GoTo atla
End If
Next


atla:
If V <> 1 Then
ComboBox1.AddItem mah
End If
V = 0
Next
End Sub

 

[Ferhat Pazarçevirdi]

Kodu şu şekilde değiştirin.

Private Sub ComboBox1_Change()
Sheets("ÖZEL").Range("A11:BY25") = Empty
[COLOR=green]'veya Sheets("ÖZEL").Range("A11:BY25").ClearContents[/COLOR]
End Sub

 

[ferhatgurbuz]

te&#351;ekk&#252;r ederim.Ellerinize sa&#287;l&#305;k