< návrat zpět

MS Excel


Téma: počítadlo řádků rss

Zaslal/a 7.4.2010 16:21

marcinko.janDobrý den, udelal jsem si makirko na doplneni zahlavi tabulky - prvni radek (vstupni data jsou bez zahlavi a jsou pokazde stejne, resp. jejich rozsah je stejny). Toto makro bude pouzivat vice lidi, tak jsem predpokladal, ze exportovana data mohou vlozit do A1, proto pokud nebude A1 prazdna chci celou oblast dat posunout o radek dolu na A2. Proto jsem si udelal jakysi citac radku:


Dim ii As Integer
Dim Bunka As Range

With Range("A:A")

For Each Bunka In .Cells
If Bunka <> "" Then ii = ii + 1
Next Bunka

ActiveSheet.Range(Cells(1, 1), Cells(ii, 255)).Select

If IsEmpty(Range("A1")) = False Then
MsgBox "Prostor pro zahlavi (radek 1) musi byt prazdny! Automaticky dojde k posunuti dat o 1 radek dolu", vbCritical
ActiveSheet.Range(Cells(1, 1), Cells(ii, 255)).Cut
ActiveSheet.Paste Destination:=ActiveSheet.Range("A2")
End If

End With


takže to spocita pocet neprazdnych radku, vybere, vyjme a vlozi do A2
Pak makro pokracuje na vyplneni zahlavi:


Range("A1").Select
ActiveCell.FormulaR1C1 = "Class"
Range("B1").Select
ActiveCell.FormulaR1C1 = "Nazev"
Range("C1").Select
ActiveCell.FormulaR1C1 = "Objednani"
Range("D1").Select


Moje otazka tedy smeruje spise na ten citac radku.. Co kdyz bude napriklad jeden radek prazdny? Pak to vybere oblast o jeden radek mene, nez potrebuji.
Spise bych chtel, aby mi to pocitadylko reklo na jakem radku se nachazi posledni neprazdny radek a vyplivlo to jako nejakou promenou..

Mozna na to jdu od zacatku uplne spatne, ale necham se rad poucit.. Diky za Vas cas

Zaslat odpověď >

icon #001438
Poki
Já bych si uvolnil první řádek spíš takto:

Sub Zahlavi()

If IsEmpty(Range("A1")) = False Then
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Range("A1").Select
End If

End Sub
citovat

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

Zaokrouhlování

JoKe • 14.6. 15:19

Zaokrouhlování

Mirek-Kraus • 14.6. 13:52

excell uprava riadku vzorca

veny • 14.6. 7:52

excell uprava riadku vzorca

orangezradca • 13.6. 20:37

pomala tlac s exelu

jano5 • 12.6. 9:44

GRAF teploty

JoKe • 12.6. 9:22

Filtrování dat

Imh0tep • 12.6. 8:35