Příspěvky uživatele


< návrat zpět

Strana:  « předchozí  1 2 3 4 5 6

To jo 1 na zaciatku som potreboval len zozrtiedit jeden stlpec podla zadanej hodnoty.

Dik za priklad 4

Ahoj prikladam priklad snad to dava nejaky zmysel 7
Nieco uz mam rozdelane uvidim k comu dospejem.

Dalsim napadom sa nebranim 1

jj to de ale len pokial v danych bunkach nieje vzorec. potrebujem aby sa to vzdy pri zmene v stlpci vse automaticky menilo

Ahoj mam mensi dotas. V tabulke npr. A2 az A52 su zadane hodnoty nie vsak v kazdej bunke. Potrebujem nejak filtrovat data do inej tabulky bez praznych buniek slo by to ? 2

Diky moc ...ani nevies ako si my pomohol 1
Este ras dik ..

otazka znie jak to zapsat 6

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 7

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

3


Strana:  « předchozí  1 2 3 4 5 6

Uživatelské menu

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

Menu

Formulář Faktura

Formulář Faktura IV

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

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje