< návrat zpět

MS Excel

Téma: Kalendář Excel VB rss

Zaslal/a MiraS44 10.6.2020 21:53

Ahoj, nejsem programátor. V rámci podnikání bych ale potřeboval jednoduchý ubytovací systém. Zasekl jsem se v jedné části. Při vyplňování rezervačního formuláře bych potřeboval, aby se část vyplňovaných údajů (konkrétně datum a typ pokoje) přenesla do kalendáře. Ten je rozdělen na měsíce. Daný měsíc má v řádku dny a ve sloupci typ pokoje. Mám 2 problémy:
1) Používám if a potřebují, aby se označovali pole od - do tzn. od kdy do kdy je ubytován, zatím to mám jen na datum příjezdu - na tohle ale asi časem příjdu.
2) spíš mě děsí, že celý kod uvedený níže mám vlastně na 1 den a já to potřebuju alespoň na 2 roky :) Potřeboval bych nakopnout a nějak to zjednodušit, abych to nemusel dělat pro každý pokoj zvlášť a každý den zvlášť. To by bylo víc jak tísíc kodu :)

Omlouvám se, jsem fakt začátečník. Ale docela mě to chytlo.
Níže kod:
Sub prenoskalendar2()
'
' prenoskalendar2 Makro
'
Dim a As String, c As String, e As String
Dim b As Date, d As Date
a = Range("Rezervace!A13").Value
b = Range("Rezervace!B13").Value
c = Range("Kalendar!A4").Value
d = Range("Kalendar!B3").Value
e = Range("Rezervace!D8").Value
'For Each cell In Range("B4:AF4")
If a = c And (b = d) Then
Sheets("Kalendar").Select
Range("B4") = e
Range("B4").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0

End With
End If
End Sub

Zaslat odpověď >
elninoslov(10.6.2020 22:08)#046874
elninoslov
Poskytnite aspoň čiastočný súbor, kde budú tie 2 listy, nejakých pár vymyslených údajov. Citlivé data nepotrebujeme. Ale presné rozloženie áno. To sa bez prílohy robí veľmi zle, navyše keď ako sám vravíte, to Vaše makro nemusí byť vôbec smerodajné, čo sa týka určenia pohyblivých častí adries.citovat
MiraS44(11.6.2020 21:15)#046880
avatar
Ahoj, posílám přílohu. Data jsou smyšlená. Je to zatím v začátcích. Ještě mě napadlo jestli by nebyla cesta buňky v kalendáři označit konkrétním datem a pak udělat podmínku na ten celý řádek pro jeden typ pokoje. pak by se to asi zjednodušilo... díky za jakékoliv náměty, snad mi rozumíte. Díky M
Příloha: rar46880_prenos-ok.rar (80kB, staženo 26x)
citovat

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