Makro prekine izvajanje in nadaljuje 10 vrstic nižje

[tjazma]

Pozdravljeni,
Moje želje bom najlažje pojasnil ob priloženem makroju.

Kako bi dosegel , da bi makro v določeni vrstici npr A44 (44, 1) prekinil z izvajanjem, preskočil deset vrstic nižje in tam nadaljeval z "delom".

Sub VnesiPodatek()
'
' VnesiPodatek Makro

Sheets("OBRAZEC").Select

ActiveSheet.Unprotect

If ActiveSheet.Range("a10").Value = "" Then 'pogleda. če je A10 prost
ActiveSheet.Range("A10:B10").Value = Sheets("LIST1").Range("E6:F6").Value 'v kolikor je A10 prost kopira vrednost
Else
ActiveSheet.Range("a44").End(xlUp).Range(Cells(2, 1), Cells(2, 2)).Value = Sheets("LIST1").Range("E6:F6").Value
End If

ActiveSheet.Protect
Sheets("LIST1").Select
Range("B6").Select
ActiveSheet.Protect

End Sub

Hvala za nasvete i pomoč.

[admin]

Hm...

Makro, ki ste ga zapisali najprej preizkusi ali je celica A10 prazna. V kolikor je tja zapiše nekaj iz drugega lista in konča. V koliko A10 ni prazna se makro postavi v celico A44 in pogleda katera je zadnja prazna celica med A10 in A44 ter tja zapiše vrednosti . Če je tudi A44 polna pač ne uspe narediti ničesar...

Kaj pa bi vi točno želeli pa ne razumem. Kaj bi prekinilil? Saj ni kaj prekiniti? Če želite, da sse makro nebi ustavil na A44 temveč. da bi nadaljeval zapise tudi dlej pač popravite A44 na npr. A1000 in makro bo polnil celice od A10 do B1000.

[tjazma]

Pozdravljeni,

Makro kopira podatke iz lista 1 range ("e6 : f6") podatek v list "OBRAZEC" in začne v vrstici ("a10 : b10"), tako kopira podatke dokler ne pride do vrstice ("a44") tam se pa stran št.1 zaključi in bi želel da makro nadaljuje z kopiranjem na strani št.2 in sicer od vrstice ("A63") naprej, ker je vmes tekst ki ga ne bi smel povozit. (Vsakič ko sprožim makro z gumbom se kopira en podatek ) List "OBRAZEC" je namreč narejen iz dveh strani.

l.p. matjaž

[admin]

Ah, potem pač nadaljujete po isti logiki... V kolikor je A44 tudi polna pojdi na naslednjo "stran"...

Koda: Izberi vse

	If ActiveSheet.Range("a10").Value = "" Then 'pogleda. če je A10 prost
		ActiveSheet.Range("A10:B10").Value = Sheets("LIST1").Range("E6:F6").Value 'v kolikor je A10 prost kopira vrednost
	Else
		If ActiveSheet.Range("a44").Value = "" Then 
			ActiveSheet.Range("a44").End(xlUp).Range(Cells(2, 1), Cells(2, 2)).Value = Sheets("LIST1").Range("E6:F6").Value
		else
			If ActiveSheet.Range("a54").Value = "" Then
				ActiveSheet.Range("A54:B54").Value = Sheets("LIST1").Range("E6:F6").Value
			Else
				ActiveSheet.Range("A63").End(xlUp).Range(Cells(2, 1), Cells(2, 2)).Value = Sheets("LIST1").Range("E6:F6").Value
			End If
		end if
	End If

[tjazma]

Najlepša hvala, deluje.

Informacije in znanje, ki ga manj vešči programiranja dobimo na tem forumu ni napisano v nobeni knjigi.

Hvala Forumu