Příspěvky uživatele

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

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

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje