• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

chceto prilohu .... podla mna ked sa upgradne excel 2003 malo by to fungovat aj tam

prave som nato pozeral a slo by to aj takto:
Private Sub cmdSparovat_Click()
Dim aKoupit As Range
Dim aProdat As Range

If REkoupit = "" And REprodat = "" Then
If REkoupit = "" Then MsgBox("Zadáváte odkaz na špatnou buòku. Bez obsahu!", vbOKOnly + vbCritical, "Spárovat obchod"): End
If REprodat = "" Then MsgBox("Zadáváte odkaz na špatnou buòku. Bez obsahu!", vbOKOnly + vbCritical, "Spárovat obchod"): End
Else
Set aKoupit = Range(REkoupit)
Set aProdat = Range(REprodat)

Rows(aKoupit.Row).Interior.ColorIndex = 19
Rows(aProdat.Row).Interior.ColorIndex = 19
Cells(aKoupit.Row, 10) = CDbl(Cells(aKoupit.Row, 8)) - CDbl(Cells(aKoupit.Row, 9))
Cells(aProdat.Row, 10) = CDbl(Cells(aKoupit.Row, 8)) - CDbl(Cells(aKoupit.Row, 9))
End If
Unload Me
End Sub

ja by som to riesil tym sposobom ze do eventu "pri skonceni" by aktualny subor zavrel bez save a potom ho otvoril zas a skryl by tam sheete a save

... zavretie dokumentu nezatvara excel :)

edit: teraz ma napadlo ked sa makro bude nachadzat v tom subore tak nebude pokracovat .... takze makro sa musi nachzadzat v Add-inse

aha, vy ste to potrebovali len v jednej bunke tak potom napriklad takto:

Public Function aCucajRok(ByVal aDate As String) As Date
aValue = Split(aDate, "-")
aCucajRok = CDate(aValue(0)) - CDate(aValue(1))
End Function

alebo klasicky "=B3-C3"

napriklad takto:

skuste to konvertnut na date a potom to odpocitavat

napr.
dim vysledek as Date

vysledek = CDate(Cil.Value) - CDate(Start.Value)

tu som to prerobil na adresar kde otvara subory a nacitava z nich data

.... nieje to uplne povedeny sposob :)

osobne sa mi to nepaci :)) je to pomale

napr takto:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
ActiveWorkbook.Save
Application.DisplayAlerts = True
End Sub

skusal som funkciu COUNTIF na ten range a funguje spravne

... prilozte prilohu tam bude asi ina chyba

ta hlaska sa objavi len ked vypinate subor nie??

dalo by sa do eventu ked sa vypne subor dopisat makro aby subor automaticky ulozilo alebo neulozilo

potom by sa vam ta hlaska neobjavila

Lubo: riadil som sa podla obrazku:

urobil som nejaku predlohu

pozrite sa nato:

prilozte prilohu :))) takto mozem len hadat co sa stalo

este priloha na bod 1

1. BOD

1. kliknete na Kartu "Home"
2. vyberete range pre ktory chete zadat format
3. kliknete na "condition formating"
4. tam vyberete "Manage Rules"
5. zadate ze chcete "New Rules"
6. Zo zoznamu vyberete posledne "Use formula to determine whch cells to format"
7. do "Rule destination" zadate podmienku A1=B1
8. kliknete na "Format" a tam nastavite farbu pozadia

2. BOD

Malo by vam to pomoct kedze kazdu dalsiu cells doplnate len klikanim po bunkach pri stlacentom CTRL

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje