Kako da.... pozovem Sub () (VB-Excel)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
jmix
