Příspěvky uživatele
< návrat zpět
mikkinachtik napsal/a:
217 jsem tam zkoušel už dříve, ale byl problém, že zapíše všechno i prázdné buňky, bere zkrátka vše od 10 do 217, ale vždy mi šlo jen o to aby zapsal to, kde bude pořadí, atd.
Step 7 ... zaruci ze bude brat kazdy 7 riadok ... takze nebude mozne ze to da prazny riadok
vytvorte si list moznych moznosti a na bunku nastavte datavalidation
ked tam nebudete chciet vidiet list len nastavte aby sa nezobrazoval .... ale nieje to moc pekne riesenie
v prilohe som nastavil na bunke A1 .... len moznosti ktore su uvedene v zozname
a pustate tu novu verziu??
lebo v novej verzii je dopisane:
For x = 1 To 11
ZapsatDo.Offset(i, x + 1).Value = .Cells(c.Row, x)
Next
sam musite uznat ze tam musi byt zapisanych dalsich 11 hodnot
a co vam to vypisuje?
Event worksheet_change sa pusta pri kazdej zmene v bunke
tj. to nieje modul ale event workbooku
tu som to napisal trochu presnejsie:
Kedze mate podla mna dost dobre skusenosti s programovanim tak to napisem len kodovo a zbytok si hadam dotvorite podla vlasnej predstavy
doplnit:sub Najdi()
...
Do
...
ZapsatDo.Offset(i, 4).Value = c.Offset(0, 1)
ZapsatDo.Offset(i, 5).Value = c.Offset(0, 2)
ZapsatDo.Offset(i, 6).Value = c.Offset(0, 3)
...
Loop While Not c Is Nothing And c.Address <> firstAddress
neviem presne co potrebujete ale dodal som do userform ... moderovatelne textboxs kde si mozte nastavit cestu
dalsi bod aby tro robilo len do 217 riadku to ma robit pri kazdom type X a Y do 217 riadku?? alebo ako to mam chapat??
ked ano staci prepisat:
For ra = 10 To .Cells(.Rows.Count, "B").End(xlUp).Row Step 7na:
For ra = 10 To 217 Step 7
For ra = 11 To .Cells(.Rows.Count, "A").End(xlUp).Rowna:
For ra = 11 To 217
tu som to opravil
tu som aplikoval opicakov vzorec (len si skontrolujte riadky ci sedia)
v com bol problem? ved to ide dobre?
takze chyba nieje v otvarani xlsm ale v samotnom uz otvorenm subore ... kedze sa uz dostal dovnutra
... mozte ten subor nejak upravit a poslat mi ho ako testovaci subor??
a co to pise?
malo by to brat aj *.xls aj x.xlsm
kedze je tu nastavene:
MyFile = FileSystem.Dir(aFolder & "*.*")
a pustanie:
Set wb = xlApp.Workbooks.Open(seznamSouboru(soubor))
Nieje chyba v tom subore? Co to pise?
dorobil som tam tu rozoznavacku
ale mozu vzniknut komplikacie
napr.
- ze udaje nezacinaju pri 10 alebo 11 riadku
- prazny formular ... moze zbugnut
- atd.
urobte si tu login a pridajte radsej prilohu
Uživatelské menu
\nMenu
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.
RSS nejnovější články