Listview'de gun farklarini renklendirme

[lapot]

Harika calisti, Ne kadar tesekkur etsem azdir, cok yordum zamaniniza ve emeginize sonsuz tesekkurler.

Son bir sorum olucak sizce tarihleri neden guncelemiyor hep Show All butonuna basmam gerekiyor, Vlookup kullaniyorum tarih satiri icin acaba formatindan dolayimi?

saygilar sunuyorum

 

[PLİNT]

"Tarihleri güncellemiyor" derken "Combobox2" ile seçimden bahsediyorsanız
listeye tarih alınmadığı içindir. Kodlara aşağıdaki kırmızı eki yaparsanız tarihler listeye gelecek (zaten
renklendiren kod başlığı içinde bulunuyor).

Private Sub ComboBox2_Change
'......
'........Kodlar
'.....
                    Liste.SubItems(16) = Format(Cells(i, 17).Value, "£#,##0.00")
                    Liste.SubItems(17) = Cells(i, 18).Value
                    [COLOR="Red"]Liste.SubItems(18) = Cells(i, 19).Value[/COLOR]
End If
Next i
Set Liste = Nothing
'....
'....
[COLOR="Blue"]FormatListView1[/COLOR]
'.....
End sub

 

[lapot]

Genelden bahsediyorum , ornegin Add Notes dugmesi ile bir not girdimmi bu not direk "DATA" sayfasina aktariliyor ve Vlookup ile oradan "Rapor" sayfasina baglanti yapiyor , fakat Rapor sayfasindaki E sutun (Ref) formatli , "DATA" sayafasindaki A sutununun formatini tutmadigindan macroya asagidaki kodu ekldim formatlari denklemek icin ama yinede otomatik olarak "DATA" sayfasindaki Notlari "Rapor" sayfasina aktarmiyor. Extradan her defasinda Show All dugmesine basiyorum ListView penceresini guncellemek icin.

bunu sorunu cozmenin bir yolu varmi acaba?

"Range("E2", Range("E65536").End(xlUp)).Select
Selection.TextToColumns Destination:=Range("E2"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Sheets("DATA").Select
Range("A2", Range("A65536").End(xlUp)).Select
Selection.TextToColumns Destination:=Range("A2"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Range("A2").Select
Sheets("invoice").Select
Selection.TextToColumns Destination:=Range("B2"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Range("A2").Select
Sheets("Rapor").Select"

 

[PLİNT]

Önceki mesajımda dediğim gibi sizin dosyanızı orjinal haliyle açamıyorum fakat;
son mesajınızdaki kodlar "AddNotes_Click" altından silinip yerine "ShowAll_Click"
kulanılsa olur görünüyor. "ShowAll_Click" altında; yukarıdaki kodlar ve listeyi yenileyen "ListviewUpdate" kodları zaten bulunuyor,

[SIZE="2"]Private Sub AddNotes_Click()
Application.ScreenUpdating = False
'Duplicate
Dim vVal
Dim lngLastRow As Long
Dim LR  As Long

vVal = TextBox5.Value
With Sheets("DATA") ' CodeName
If WorksheetFunction.CountIf(.Columns(1), vVal) <> 0 Then
MsgBox vVal & " already exists", vbCritical
Exit Sub
Else
LR = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
.Range("A2" & LR) = TextBox5.Value
.Range("B2" & LR) = TextBox20.Value

End If
End With
Sheets("DATA").Select

LR = Range("A" & Rows.Count).End(xlUp).Row
Range("A2:A" & LR).Select

'Range("A:A").Select 'specify the range which suits your purpose
With Selection
    Selection.NumberFormat = "0"
    .Value = .Value
End With
Update
  TextBox14.Text = Worksheets("Rapor").[a65536].End(xlUp).Row - 1 '
[COLOR="Red"]ShowAll_Click[/COLOR]
   [COLOR="Blue"]'ListviewUpdate BU BÖLÜM SİLİNECEK[/COLOR]


Application.ScreenUpdating = True
End Sub [/SIZE]

 

[lapot]

Cok tesekkurler butun yardimlariniz icin. Cok yardimci oldunuz saygilar sunuyorum