< návrat zpět

MS Excel


Téma: Cyklus chyba rss

Zaslal/a 16.7.2017 9:55

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

Příloha: rar36880_dluh.rar (235kB, staženo 22x)
Zaslat odpověď >

#036881
elninoslov
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
#036882
avatar
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
#036883
elninoslov
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
#036884
avatar
Ou omlouvám se, že ruším na dovolené, to jsem nechtěl. Hold si budu muset počkat 6citovat
#036885
Stalker
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
#036886
elninoslov
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 ... 1citovat
#036888
avatar
Stalker - děkuji za kód, pracuje jak má.
Moc díky.

Radekcitovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09