< návrat zpět

MS Excel

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

Zaslal/a marcinko.jan 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 Poki(8.4.2010 18:30)#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 Subcitovat

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