[ jmix23 @ 20.02.2009. 09:18 ] @
| Napravio sam sledece : CODE: Sub Kolicina() Dim Sh1 As Worksheet Dim sh2 As Worksheet Dim rw As Long Dim i As Long Set Sh1 = ActiveWorkbook.Sheets(3) Set sh2 = ActiveWorkbook.Sheets(3) For rw = 5 To 100 Step 1 For i = 5 To 100 Step 1 If (Sh1.Cells(rw, 3).Value = sh2.Cells(i, 11).Value) Then Sh1.Cells(rw, 4).Value = sh2.Cells(i, 9).Value End If Next i Next rw End Sub Znaci, imam dve tabele u istom sheet-u, 'rw' broji redove prve tabele, a 'i' redove druge druge tabele...e sad, pocinje sa poredjenjem vrednosti celije sa indexima (5,3) iz prve tabele sa vrednostima svih celija druge tabele pocevsi od (5,11) pa do (100,11)... i kad i ako pronadje istu vrednost iz 9te kolone druge tabele dodeljuje vrednost u 4toj koloni prve tabele...sto mi i treba :)...mozda ovde treba napomenuti da su vrednosti celija tip[a string, tj.text....e sad ne znam kako da pozovem ovo sto sam napravio, pa ako neko zna kako to da uradim ili ima primedbi na ovaj kod, prihvatam sve kritike i savete ... Unapred hvala !!!! pozzzzz |