Belirli Koşula Uyan Satırları Seçme.!!

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

Belirli Koşula Uyan Satırları Seçme.!!

İleti#1)  sinan05 » 25 Haz 2019 13:55

Seğerli Hocalarım Merhabalar.Acaba bişey rica edebilirmiyim. Uğraşıp duruyorum ama anlamadığım için kodlardan yapamıyorum.Aşağıya eklediğim makro dolu olan hücreleri kopyalıyor. A sutununda tarihler var. Benim istediğim acaba dolu olan satır yerine sadece hangi gündeysek o günün tarihine uyan A:U arası satırları seçsin .Sadece seçsin kopyalama başka bişey yapmasın Çünkü ben ona daha sonra başka işlevler ekleyeceğim. Şimdiden teşekkürler.

Sub KAYİT_Test()
Application.ScreenUpdating = False
Dim tarih1 As Date, tarih2 As Date, xtarih As Date
Dim S1 As Worksheet, S2 As Worksheet, Defterler(), Son As Long, Satır As Long
Set S1 = Sheets("KAYITLAR")
Defterler = Array("ANA SAYFA")
Satır = 4
For Each defter In Defterler
Set S2 = Sheets(defter)
Son = S2.Cells(S2.Rows.Count, 1).End(3).Row
Son1 = Sheets("KAYITLAR").[a65536].End(3).Row + 1
For x = 4 To Son
If S2.Cells(x, "B").Value <> "" Then
S2.Range("A" & x & ":U" & x).copy
Sheets("KAYITLAR").Cells(Son1, 1).PasteSpecial xlPasteValues
Son1 = Son1 + 1
End If
Next x
Next
Application.ScreenUpdating = True
End Sub
Kullanıcı avatarı
sinan05
Siteye Alışmış
 
Kayıt: 25 Arl 2017 19:37
Meslek: ticari-binek oto alım satım.
Yaş: 36
İleti: 155
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul-bakırköy

Cevap: Belirli Koşula Uyan Satırları Seçme.!!

İleti#2)  Feyzullah » 25 Haz 2019 14:26

Kod: Tümünü seç
Sub exceldestek()
Dim S1 As Worksheet
Set S1 
Sheets("ANA SAYFA")
For 
xd 4 To S1.Cells(Rows.Count1).End(xlUp).Row
    
If Format(CDate(S1.Cells(xd1)), "dd.mm.yyyy") = Format(CDate(Date), "dd.mm.yyyy"Then
        S1
.Range("A" ":U" x).Select
    End 
If
Next xd
MsgBox 
"Seçim Yapıldı"vbInformation vbMsgBoxRtlReading"ExcelDestek.com"
End Sub
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 648
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

Cevap: Cevap: Belirli Koşula Uyan Satırları Seçme.!!

İleti#3)  sinan05 » 25 Haz 2019 14:47

Feyzullah yazdı:
Kod: Tümünü seç
Sub exceldestek()
Dim S1 As Worksheet
Set S1 
= Sheets("ANA SAYFA")
For xd = 4 To S1.Cells(Rows.Count, 1).End(xlUp).Row
    If Format
(CDate(S1.Cells(xd, 1)), "dd.mm.yyyy") = Format(CDate(Date), "dd.mm.yyyy") Then
        S1
.Range("A" & x & ":U" & x).Select
    End If
Next xd
MsgBox 
"Seçim Yapıldı", vbInformation + vbMsgBoxRtlReading, "ExcelDestek.com"
End Sub


Feyzullah hocam çok teşekkür ederim fakat makro sayfanın tamamını seçiyor. Benim istediğim diyelim bugünün tarihinden 4 adet satır varsa sadece o 4 satırı seçsin istiyorum.
Kullanıcı avatarı
sinan05
Siteye Alışmış
 
Kayıt: 25 Arl 2017 19:37
Meslek: ticari-binek oto alım satım.
Yaş: 36
İleti: 155
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul-bakırköy

Cevap: Belirli Koşula Uyan Satırları Seçme.!!

İleti#4)  Feyzullah » 25 Haz 2019 14:51

If Format(CDate(S1.Cells(xd, 1)), "dd.mm.yyyy") = Format(CDate(Date), "dd.mm.yyyy") Then

Yukarıda kod şartında buğünün tarihine eşit ise seç diyor zaten. Tarih formatı ile alakalı bir durum olabilir. Aşağıdaki gibi deneyin olmazsa.

Kod: Tümünü seç
 If CDate(S1.Cells(xd, 1)) = Date Then
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 648
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

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

Cevap: Cevap: Belirli Koşula Uyan Satırları Seçme.!!

İleti#5)  sinan05 » 25 Haz 2019 15:50

Feyzullah yazdı:If Format(CDate(S1.Cells(xd, 1)), "dd.mm.yyyy") = Format(CDate(Date), "dd.mm.yyyy") Then

Yukarıda kod şartında buğünün tarihine eşit ise seç diyor zaten. Tarih formatı ile alakalı bir durum olabilir. Aşağıdaki gibi deneyin olmazsa.

Kod: Tümünü seç
 If CDate(S1.Cells(xd, 1)) = Date Then


FEYZULLAH Hocam sağolun emeğinize teşekkür ederim ama bu seferde hiç birşey seçmedi. Asıl amacım içinde bulunduğumuz günün tarihine olan satırlar seçsin sonrada özel sıralama ile B sütununda ki hücrelerde yazan giriş çıkış kayıtlarını girişler üst satırlarda olacak şekilde filitrelesin yani aşağıda ki tablodaki gibi
A SÜTUNU B SÜTUNU C SÜTUNU U SÜTUNU
25.06.2019 GİRİŞ VERİ VERİ
25.06.2019 GİRİŞ VERİ VERİ
25.06.2019 ÇIKIŞ VERİ VERİ
25.06.2019 ÇIKIŞ VERİ VERİ
Kullanıcı avatarı
sinan05
Siteye Alışmış
 
Kayıt: 25 Arl 2017 19:37
Meslek: ticari-binek oto alım satım.
Yaş: 36
İleti: 155
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul-bakırköy

Cevap: Belirli Koşula Uyan Satırları Seçme.!!

İleti#6)  Feyzullah » 25 Haz 2019 15:52

Dosyanızın örneğini yükler misiniz. Kodlar da hata göremedim.
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 648
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Cevap: Belirli Koşula Uyan Satırları Seçme.!!

İleti#7)  sinan05 » 25 Haz 2019 16:13

Feyzullah yazdı:Dosyanızın örneğini yükler misiniz. Kodlar da hata göremedim.


Buyrun Hocam http://s4.dosya.tc/server6/r5qqen/TEST.rar.html

FEYZALLAH Hocam asıl yapmak istediğim ANA SAYFA da verileri girdikten sonra kaydet deyince verileri alıp KAYITLAR sayfasının son satırına kopyalasın sonra KAYITLAR sayfasında içinde bulunduğumuz günün satırlarını seçsin girişler üste çıkışlar altta olacak şekilde filitrelesin. Sayfanın tamamı filitrelenmiyor çok denedim olmadı . çünkü önce tarih sırasına göre veriler sıralanacak arkasından da aynı tarihte olan veriler de girişler üste çıkışlar altta olacak. zaten KAYITLAR sayfasında ki örneklerden anlarsınız. KAYITLAR sayfasında birleşik hücreler var onları çözmeyi unuttum siz çözersiniz. zira artık onları çözülü bırakıcam hem makrolarda sorun çıkarmıyor hemde işlemler daha kolay yapılıyor.
Kullanıcı avatarı
sinan05
Siteye Alışmış
 
Kayıt: 25 Arl 2017 19:37
Meslek: ticari-binek oto alım satım.
Yaş: 36
İleti: 155
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul-bakırköy

Cevap: Cevap: Belirli Koşula Uyan Satırları Seçme.!!

İleti#8)  sinan05 » 25 Haz 2019 18:05

Feyzullah yazdı:Dosyanızın örneğini yükler misiniz. Kodlar da hata göremedim.


Hocam filtreleme yoluyla yaptım çok şükür yardımlarınız için çok teşekkür eserim. Yalnız makroda bir kodu kısaltmam lazım. Benim veriler 4. Satırdan başlıyor. Makro içersinde eğer B sütunundaki hücreler doluysa yanındaki A hücrelerine bugün tarihi atılsın hangi kodlarla yazılır hocam.
Kullanıcı avatarı
sinan05
Siteye Alışmış
 
Kayıt: 25 Arl 2017 19:37
Meslek: ticari-binek oto alım satım.
Yaş: 36
İleti: 155
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul-bakırköy

Cevap: Belirli Koşula Uyan Satırları Seçme.!!

İleti#9)  Feyzullah » 25 Haz 2019 18:52

Kod: Tümünü seç
For xd = 4 To Cells(Rows.Count, 3).End(xlUp).Row
    If  cells(xd,2) <> "" Then
        cells(xd,1)= Date
    End If
Next xd
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 648
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

Cevap: Cevap: Belirli Koşula Uyan Satırları Seçme.!!

İleti#10)  sinan05 » 25 Haz 2019 20:59

Feyzullah yazdı:
Kod: Tümünü seç
For xd = 4 To Cells(Rows.Count, 3).End(xlUp).Row
    If  cells(xd,2) <> "" Then
        cells(xd,1)= Date
    End If
Next xd


FEYZULLAH Hocam çok teşekkür ederim ALLAH RAZI OLSUN. Çok güzel oldu tam istediğim gibi. Benim kaydederek yaptığım makro biraz yoruyordu bu çok hızlı oldu. Şuan sorun yok ama merak ettğim C sütununa değer girmeden tarih atmıyor ilginç.
Kullanıcı avatarı
sinan05
Siteye Alışmış
 
Kayıt: 25 Arl 2017 19:37
Meslek: ticari-binek oto alım satım.
Yaş: 36
İleti: 155
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul-bakırköy

Cevap: Belirli Koşula Uyan Satırları Seçme.!!

İleti#11)  Feyzullah » 25 Haz 2019 21:23

Cells(Rows.Count, 3).End(xlUp).Row. Bu kodda ki 3 C sütunu demek.
Aşağıdaki şekilde de kullanabilirsiniz.
D sütünunun son dolu olan satırına kadar devam eder.
Kod: Tümünü seç
Cells(Rows.Count, "D" ).End(xlUp).Row
Kullanıcı avatarı
Feyzullah
Site Dostu
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 08:30
İleti: 648
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

Cevap: Cevap: Belirli Koşula Uyan Satırları Seçme.!!

İleti#12)  sinan05 » 25 Haz 2019 21:44

Feyzullah yazdı:Cells(Rows.Count, 3).End(xlUp).Row. Bu kodda ki 3 C sütunu demek.
Aşağıdaki şekilde de kullanabilirsiniz.
D sütünunun son dolu olan satırına kadar devam eder.
Kod: Tümünü seç
Cells(Rows.Count, "D" ).End(xlUp).Row


Anladım Hocam çok teşekkürler sağolun eksik olmayın her iki türlüde işimi görüyor.
Kullanıcı avatarı
sinan05
Siteye Alışmış
 
Kayıt: 25 Arl 2017 19:37
Meslek: ticari-binek oto alım satım.
Yaş: 36
İleti: 155
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul-bakırköy


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot, Yandex[Bot] ve 3 misafir

Bumerang - Yazarkafe