MS Excel

Zdravim som zaciatocnik potrebujem nejak udelat makro na smazanie poslednych zadanych hodnot. Tieto hodnoty sa zapisuju vzdy podseba. makro na zapis nejak takto :

Sub zapsat()

'

'
Dim hodnota(6)

hodnota(0) = Cells(4, 15)
hodnota(1) = Cells(5, 15)
hodnota(2) = Cells(6, 15)
hodnota(3) = Cells(7, 15)
hodnota(4) = Cells(8, 15)
hodnota(5) = Cells(9, 16)

Dim rd As Single

rd = 62

Do While Cells(rd, 1) <> ""
rd = rd + 1

Loop:

Cells(rd, 1) = hodnota(0)
Cells(rd, 2) = hodnota(1)
Cells(rd, 3) = hodnota(2)
Cells(rd, 4) = hodnota(3)
Cells(rd, 5) = hodnota(4)
Cells(rd, 6) = hodnota(5)

End Sub

Zaslat odpověď >

Poki(5.5.2010 18:26)#001614

Pokud to dobre chapu, tak staci najit posledni neprazdny radek ve sloupci A a smazat na tomto radku sloupce 1-6.
Ten radek, jak vidim, najit umis, tak to asi nebude problem :-), ne?citovat

nio313(5.5.2010 18:38)#001618

otazka znie jak to zapsat

jde o to ze ak sa pomylis a adklepnes zapsat tak sa nevedia vratit. preto tam chcem nacpat makro na smazanie poslednych hodnot. nejak sa nedary som do toho lama

citovat

Poki(5.5.2010 18:47)#001620

Zkus se na to podivat.
Makro pro zapsani naslo prvni prazdy radek, ktery se nachazi pod radkem 62 (vase promenna "rd"). Takze posledni neprazdy radek = rd - 1.

Co takhle?
rd = 62

Do While Cells(rd, 1) <> ""
rd = rd + 1
Loop

range(Cells(rd - 1, 1), Cells(rd - 1, 6)).clearcontentscitovat

nio313(5.5.2010 18:49)#001621

Diky moc ...ani nevies ako si my pomohol

Este ras dik ..citovat

Poki(5.5.2010 19:03)#001622

Neni to zadna veda, staci zapremyslet a ujasnit si, ceho vlastne chci dosahnout - hodne stesti v dalsi praci :)citovat

Téma: Smazat -krok spet

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje