• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Smazat -krok spet

Zaslal/a nio313 5.5.2010 18:17

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

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse