Re: Do specow Excelowych

Jacek pisze:
> Cos takiego:
>
> Sub qq()
> x = 2
> y = 2
> Sheets(1).Select
> While Cells(x, 1) <> ""
> id1 = Cells(x, 1)
> w1 = Cells(x, 2)
> w2 = Cells(x, 3)
> w3 = Cells(x, 4)
> jest = False
> Sheets(2).Select
> y = 1
> While Cells(y, 1) <> ""
> id2 = Cells(y, 1)
> If id1 = id2 Then
> Cells(y, 4) = w1
> Cells(y, 5) = w2
> Cells(y, 6) = w3
> jest = True
> End If
> y = y + 1
> Wend
> If Not jest Then
> Cells(y, 1) = id1
> Cells(y, 4) = w1
> Cells(y, 5) = w2
> Cells(y, 6) = w3
> End If
> Sheets(1).Select
> x = x + 1
> Wend
> End Sub

POwiedz mi jeszcze gdzie mam to wpisac?
Received on Mon Mar 22 08:05:03 2010