< návrat zpět

MS Excel


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

Zaslal/a 21.3.2019 20:02

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

Příloha: zip43017_cp.zip (30kB, staženo 27x)
Zaslat odpověď >

#043034
Jeza.m
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
#043035
avatar
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: zip43035_cp-2.zip (35kB, staženo 28x)
citovat
#043036
Jeza.m
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
#043037
avatar
Jasné, odstraňoval som riadky, tak preto.
Tak ďakujem ešte razcitovat

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

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09