MS Excel

Ahoj.

Mám tu jeden cyklus, který se mi však provede jen u prvního řádku.
Nevím kde mám chybu, poradí někdo?

Sub SkutečnýDluh()

' když nejde "*" ve sloupci "X" tak do sloupce "V"
' nakopíruje hodnotu ze sloupce "P" ze stejného řádku

Set Rng = Range("X3:X2000")
i = 1
For counter = 1 To Rng.Rows.Count
If Rng.Cells(i) = "*" Then
Rng.Cells(i).Offset(0, -2).Formula = "=RC[-6]" 'tady je odkaz, ale potřeboval bych hodnotu
Else
i = i + 1
End If
Next
End Sub

Děkuji
Radek

Zaslat odpověď >

elninoslov(16.7.2017 12:07)#036881

Zamieňate si premenné counter a i. Pri adresácii bunky použite counter, a nie i. Tak isto použite odkaz na bunku v inom stĺpci, odkiaľ chcete hodnotu. Teda napr.:
Rng.Cells(counter).Offset(0, -2).Value2 = Rng.Cells(counter).Offset(0, -6).Value2
Celé by som to ale urobil cez polia, alebo priamou adresáciou. Ale som len na mobile...citovat

Raders486(16.7.2017 14:09)#036882

Děkuji z rychlou reakci, ale co tu popisuješ je pro mě španělská vesnice.

Asi si budu muset počkat až budeš u PC.

Ale i tak děkuji
Radekcitovat

elninoslov(16.7.2017 18:06)#036883

No to si asi fakt počkáš. Som na dovče, a teda furt v "akcii". Book mám, akurát ho neotváram :)citovat

Raders486(16.7.2017 19:42)#036884

Ou omlouvám se, že ruším na dovolené, to jsem nechtěl. Hold si budu muset počkat

citovat

Stalker(16.7.2017 21:21)#036885

Když je elninoslov mimo zkusím to.
Sub SkutecnyDluh()

Dim POLE_X
Dim POLE_V
Dim POLE_P
Dim i As Long

POLE_X = Range("X3:X2000").Value
POLE_V = Range("V3:V2000").Value
POLE_P = Range("P3:P2000").Value

For i = LBound(POLE_X) To UBound(POLE_X)
If POLE_X(i, 1) = "*" Then
POLE_V(i, 1) = POLE_P(i, 1)
End If
Next
Cells(3, 22).Resize(UBound(POLE_V)).Value = POLE_V
End Sub
citovat

elninoslov(16.7.2017 22:15)#036886

Presne takto nejako som to myslel. Ja si to tu pár krát denne pri pivečku čeknem, ale kódovať to na mobile v krpatom okne ... PC zapnem len po vyhlásení výnimočného stavu.
Stalker ľavou zadnou ...

citovat

Raders486(17.7.2017 6:17)#036888

Stalker - děkuji za kód, pracuje jak má.
Moc díky.

Radekcitovat

Téma: Cyklus chyba

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje