Stránka 1 z 1

Makro - modifikacia  Vyřešeno

Napsal: 05 kvě 2018 22:31
od tsibee
Ahojte :),

prosim,ak by niekto mal cas, tak by sa mi mohol pozriet na prikaz? Mam tu dve tabulky, ta troska prisposobena ale fungujuca "ID TextBOx" a druha tiez upravena ale uz nie tak celkom funguje ako by som si to predstavoval "ID Combobox". Problem nastal v tedy ako pre ID som vymenil textbox za kombobox. V prikazoch som zamenil Textbox6 za Combobox1 ale pri stlaceni Edit/Add mi pracuje len s B stlpcom a stlpcami C-E uz nepracuje. Kym v zosite ID TextBox, to pekne pracuje so vsetkymi stlpcami.

Re: Makro - modifikacia

Napsal: 06 kvě 2018 09:36
od elninoslov
Okrem toho, že v podmienke

Kód: Vybrat vše

If flag = False Then

to máte zle

Kód: Vybrat vše

For j = 1 To 5

má tam byť

Kód: Vybrat vše

Cells(emptyRow, 1).Value = ComboBox1.Value
For j = 2 To 5

, tak Vám tento cyklus pre zápis hodnôt z TextBox-ov do buniek

Kód: Vybrat vše

For j = 2 To 5
   Cells(i + 1, j).Value = UserForm1.Controls("TextBox" & j).Value
Next j

záhadne vyvolá metódu

Kód: Vybrat vše

Private Sub ComboBox1_Change()
GetData
End Sub

ktorá vyplnené data formu, prepíše tými, ktoré odpovedajú bunkám daného ID. V tomto prípade prázdne.

Celé je to naprogramované divne, lebo sa prechádzajú po jednom bunky - pomalé - použiť Match alebo pole.
Cyklus prechádza bunky aj po tom, čo už našiel to čo hľadal - zpomaľujúce, zbytočné.

Keď budem mať chuť, tak Vám to prepíšem, zatiaľ sa mi nechce ... ;)

EDIT:
Tak som Vám na to mrkol, a videl by som to takto nejako ...

Re: Makro - modifikacia

Napsal: 06 kvě 2018 11:56
od tsibee
Waw super dakujem moc krat. Zatial mi to takto postacuje.
Ale ak by ste nahodou predsa len dostali chut prepisat, tak este jedna prosba (ja zatial skusim na to prist, neviem ci sa mi to podari skor :) ), tak namiesto ID by neboli cisla ale datumy v rozsahu jedneho mesiaca (napr. od 01.06.2018 do 30.06.2018). Ja som to tak nejak uz poskusal,ale zatial neuspesne :(.

Re: Makro - modifikacia

Napsal: 06 kvě 2018 20:59
od elninoslov
No v tom prípade potom asi takto.
Dávajte vždy reálne zadanie. Umiestnenie aké máte, formáty aké máte, presne. Keď sú čísla, tak čísla, ak desatinné tak desatinné, ak máte textočíslo, tak dajte to. To isté platí s dátumami. Odsadenie tabuliek, hlavičky. Všetko hrá úlohu. To je dnes "móda", že každý sa snaží dávať úplne iné info ako v skutočnosti má? A potom len dávkuje postupne info, a nech mu to niekto prerába. Našťastie toto nebolo zložité prerobiť. Polepšite sa ...