renkli hücre ve yanındaki hücre değerlerinin başka hücreye aktarılması

[metot]

merhaba arkadaşlar;
başlıkta da belirttiğim gibi ekte gönderdigim calisma kitabinda a sutununda isimler b sutununda da tarihler var (isim ve tarihler asagiya dogru devam ediyor) eger tarih yazan hucre kırmızı ise tarihi ve yanındaki hucre degerini f sutununa sirayla kopyalamak istiyorum, (f sutunda ornek yaptım),forumda cok aradim ama renkli hucreyi nasil sececegimi bir turlu bilemedim...
emegi gecen herkeze simdiden tesekkur eder iyi calismalar dilerim...

 

[dpalut]

http://www.excel.web.tr/showthread.php?t=18175&highlight=saat+ve+tarih
linki bir inceleyin isterseniz belki işinize yarayacak birşeyler bulursunuz.
ve bence olayı tersinden düşünseniz daha kolay çözüme ulaşırsınız gibi. (günün tarihi ve ödeme yapılacak kişiler ...)

 

[metot]

sayin dpalut

öneriniz ve gonderdiginiz dosya icin tesekkur ederim, fakat problem su ismi kirmizi olanlarin yanindaki tarih onemli, tek basina tarih bir anlam ifade etmiyor, bu yuzden ters mantik kurmamiyorum, emeginize saglik tesekkur ederim...

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub RAPOR()
    [F2:F65536].ClearContents
    Satır = 2
    For X = 2 To [A65536].End(3).Row
    If Cells(X, 1).Interior.ColorIndex = 3 Then
    Cells(Satır, 6) = Cells(X, 1) & " " & Cells(X, 2)
    Satır = Satır + 1
    End If
    Next
    MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub

 

[udentr2002]

düğmeye basınca a stününda 1 den 100 e kadar olan hücreler içersinde eğer kırmızı renkli bir hücre görürüse onun f stüununda karşısındaki hücreye dediğiniz işlemi yapıyor ekli dosyayı inceleyiniz inşallah dediğiniz gibi olmuştur.

 

[metot]

sayın COST_CONTROL

kod gercekten cok iyi tam olarak istedigim sey gerceklesti emeginize saglik elleriniz dert gormesin iyi calismalar dilerim....

 

[metot]

sayin udentr2002

ekte gonderdiginiz calisma icin sizede cok tesekkur ederim, sayin cost_kontrol
un gonderdigi kod ile problemimi cozdum sizinkide cok guzel emeginiz icin cok tesekkurler saolun....

 

[1Al2Ver]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub RAPOR()
    [F2:F65536].ClearContents
    Satır = 2
    For X = 2 To [A65536].End(3).Row
    If Cells(X, 1).Interior.ColorIndex = 3 Then
    Cells(Satır, 6) = Cells(X, 1) & " " & Cells(X, 2)
    Satır = Satır + 1
    End If
    Next
    MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub

Sayın Cost_Control, hücreleri manuel kırmızı yapmak yerine "koşullu biçimlendirme" ile hallettim (B1'e tarih yazdım, koşulunu ise, a2 hücresini seçtim ve =$b$1=b2, seçim'de de deseni kırmızı yaptım) "aktarma" yapmış mesajı veriyor ancak aktarmıyor, sanırım koşullu biçimlendirmeden kaynaklanıyor,

Yapmaya çalıştığım işlem; hücreyi koşula göre kendisi kırmızı yapmak, akabinde tuş ile ilgili hücrelere (F kolonu) aktarmak,

Koşulumuz ise ; ödeme tarihi = bugün() ,

Anılan isteğin olması için sizin macro kodu mu değişmeli, yoksa başka bir yolu varmı ?

Saygılarımla.

 

[ceyrek]

aşağıdaki kod, B sütunundaki tarihlerin içerisinden, tarihi bugün olanını kırmızıya boyar ve o satırın Ave B sütunlarını F sütunundaki son satırın altına ekler.

satir=Cells(65536, "F").End(xlUp).Row +1
For i = 1 To Cells(65536, "B").End(xlUp).Row
If Cells(i, 2).Value = Date Then
Cells(i, 2).Interior.ColorIndex = 3 ' Bu satırı kaldırırsanız kırmızıya boyamaz
Cells(satir, 6) = Cells(i, 1) & " " & Cells(i, 2)
satir=satir+1
End If
Next

 

[1Al2Ver]

aşağıdaki kod, B sütunundaki tarihlerin içerisinden, tarihi bugün olanını kırmızıya boyar ve o satırın Ave B sütunlarını F sütunundaki son satırın altına ekler.

satir=Cells(65536, "F").End(xlUp).Row +1
For i = 1 To Cells(65536, "B").End(xlUp).Row
If Cells(i, 2).Value = Date Then
Cells(i, 2).Interior.ColorIndex = 3 ' Bu satırı kaldırırsanız kırmızıya boyamaz
Cells(satir, 6) = Cells(i, 1) & " " & Cells(i, 2)
satir=satir+1
End If
Next

Sayın ceyrek, teşekkür ederim, saygılar.