MS Excel

Dobrý deň.
Poprosím o pomoc. Mám cenník tovaru, v príklade rastlín. Program v ktorom robím projekt mi vygeneruje zoznam použitých rastlín v xls, ten si skopírujem do cenníka ( stĺpec N, O ) a potrebujem aby sa mi tlačítkom VLOŽ DO CP v bunke N3:
- rastliny ktoré cenník pozná ( stĺpec C ) označilo začiarknutím políčka ( stĺpec A ) a doplnilo počet zo stĺpca O do stĺpca F
- rastliny ktoré cenník nepozná doplnilo do cenníka, doplnilo počet a potom tak isto označilo začiarknutím políčka.
Tieto údaje sa mi potom prenášajú do cenovej ponuky.
Neviem to skombinovať :-)
Ďakujem

Zaslat odpověď >

Jeza.m(26.3.2019 10:23)#043034

Určitě to není finální řešení, ale mohl by to být směr ...

Public Sub Zkontroluj()

For rdi = 6 To Hárok9.UsedRange.Rows.Count
If Cells(rdi, 14) <> "" Then
For rdo = 6 To Hárok9.UsedRange.Rows.Count
If Cells(rdo, 3) = Cells(rdi, 14) Then
Cells(rdo, 5) = Cells(rdi, 15)
Zaskrtni (rdo)
Exit For
Else
If Cells(rdo, 3) = "" Then
Cells(rdo, 3) = Cells(rdi, 14)
Cells(rdo, 5) = Cells(rdi, 15)
Zaskrtni (rdo)
Exit For
End If
End If
Next
Else
Exit For
End If
Next
End Sub

Public Sub Zaskrtni(radek As Single)
For Each cb In Hárok9.CheckBoxes
If UCase(Left(cb.Name, 9)) = "CHECK BOX" Then
If (cb.Left >= Cells(radek, 1).Left And cb.Left < Cells(radek, 2).Left) And (cb.Top >= Cells(radek, 1).Top And cb.Top < Cells(radek + 1, 1).Top) Then
cb.Value = True
End If
End If
Next
End Sub
M@citovat

Zdeno-Frano(26.3.2019 17:08)#043035

Super, ďakujem.
Trošku som opravil čísla stĺpcov, lebo hádzalo údaje inam ako malo.
Len 1 chybička - vždy mi začiarkne o 1 položku viac ako je vo vygenerovanom zozname - je to nachystané, stačí len zakliknúť VLOŽ DO CP a ukáže sa to v červenej bunke.
Ešte to pozriem večer keď bude viac času, možno na to prídem :-)

Příloha: zip

43035_cp-2.zip (35kB, staženo 29x)

citovat

Jeza.m(26.3.2019 18:09)#043036

Zaškrtávácí políčko v buňce A12 se Vám odkazuje na L11, respektuve v buňce A12 máte 2 zaškrtávací políčka přes sebe (takových tam je víc). To horní se odkazuje dobře, ale to schované pod ním už ne.citovat

Zdeno-Frano(26.3.2019 19:40)#043037

Jasné, odstraňoval som riadky, tak preto.
Tak ďakujem ešte razcitovat

Téma: Vyhľadaj v zozname, označ známe, doplň nové

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje