koji u prvoj koloni sadrzi zaposlene, a u prvom redu polja su popunjena datumima iz tekuceg meseca. imam kod makroa
Sub Karnet()
Dim wsowssvr As Worksheet, wsKarnet As Worksheet
Dim intDaysInMonth As Integer
Dim i As Integer
Dim rsharepoint As Integer 'kolona sharepoint
Dim rkarnet As Integer 'red karnet
Dim kkarnet As Integer ' kolona karnet
Dim zkkarnet As Integer 'zadnja kolona karnet -broj
Dim zrsharepoint As Integer 'zadnja kolona sharepoint
Dim zrkarnet As Integer 'zadnji red karnet -broj
'Korak 1: dodaje sheet, daje mu ime
Sheets.Add.Name = "Karnet"
'Korak 2: kopira kolonu zaposleni bez duplikata u Karnet sheet
Set wsowssvr = Sheets("owssvr")
Set wsKarnet = Sheets("Karnet")
wsowssvr.Range("C:C").Copy wsKarnet.Range("A1")
wsKarnet.Range("A:A").RemoveDuplicates Columns:=1, Header:=xlNo
'Korak 3: kreira kolone, cije zaglavlje su datumi tekuceg meseca
intDaysInMonth = Day(DateSerial(Year(Now()), Month(Now()) + 1, 0))
wsKarnet.Cells(1, 2).Resize(intDaysInMonth, 1).ClearContents
For i = 1 To intDaysInMonth
wsKarnet.Cells(1, 2).Offset(0, i - 1) = DateSerial(Year(Now()), Month(Now()), i)
Next i
'Korak 4: popunjavanje karneta
zkkarnet = wsKarnet.UsedRange.Rows(1).Columns.Count
zrkarnet = wsKarnet.UsedRange.Columns(1).Rows.Count
zrsharepoint = wsowssvr.UsedRange.Columns(1).Rows.Count
For rkarnet = 2 To zrkarnet
For kkarnet = 2 To zkkarnet
For rsharepoint = 2 To zrsharepoint
If wsKarnet.Cells(rkarnet, 1).Value = wsowssvr.Cells(rsharepoint, 3).Value And wsKarnet.Cells(1, kkarnet).Value = wsowssvr.Cells(rsharepoint, 1).Value And wsowssvr.Cells(rsharepoint, 5).Value = True Then
wsKarnet.Cells(rkarnet, kkarnet).Value = "+"
Else
wsKarnet.Cells(rkarnet, kkarnet).Value = "-"
End If
Next rsharepoint
Next kkarnet
Next rkarnet
End Sub
Dakle treba mi makro koji ce porediti kolone Zaposleni u oba sheet-a, datume iz prvog reda sheet-a Karnet sa sa kolonom startni datum i ako je u koloni Prisustvo 'True' u odgovarajucem polju za zaposlenog i datuma da upise simbol +, ostalo -.
Uspeo sam da upisem u polja - ali mi ne radi provera preko if petlje. Mozete li mi pomoci. Hvala