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

Příspěvky uživatele

Uz vidim, v cem to je.
Do bunky C4 vlozte tento vzorec (a protahnete dolu):
=KDYŽ(NEBO(JE.CHYBHODN(SVYHLEDAT(B4;B5:$B$100;1;0))=PRAVDA;B4<>$D$4);"";B4)

nevim, jestli jsem to spravne pochopil, ale zkuste se podivat do prilohy, ve sloupci C je vzorec, ktery by to mohl resit...

chtelo by to prihodit nejakej vzorek dat...

funkce KDYŽ toto umi ve spojeni s funkci A.
KDYŽ(A(U2=L507;P2=L508);PRAVDA;NEPRAVDA)

do bunky A1 vlozte tento vzorec: =INDEX(B1:IV1;1;POČET2(B1:IV1))

pokud nebudete vynechavat od bunky B1 zadne bunky v prvnim radku, bude bunka A1 zobrazovat posledni hodnotu v radku.

Pokud budete mit prazdne bunky v radku 1, zkuste tuto proceduru:
Sub PosRadek()
radek = 1
Cells(radek, 1) = Cells(radek, 256).End(xlToLeft)
End Sub

Pokud vase UsedRange neni prilis velka (neobsahuje prilis mnoho bunek), lze pouzit tato procedura: Sub smazat()
MsgBox ActiveSheet.UsedRange.Address
For Each cell In ActiveSheet.UsedRange
If cell.Locked = False Then
cell.ClearContents
End If
Next
End Sub
Pri velkem poctu bunek to bude prilis pomale...

zkus do modulu Listu pridat tento kod:Private Sub Worksheet_Change(ByVal Target As Range)
radek = Cells(65000, 1).End(xlUp).Row
If Not Intersect(Target, Cells(radek, 16)) Is Nothing And IsEmpty(Target) = False Then
ThisWorkbook.Save
MsgBox "Sešit byl uložen", vbInformation, "Saved"
End If
End Sub

Nejake makro by nebylo tezke napsat, otazka je, co myslite neuzamcenou bunkou, protoze v excelu je standardne uzamcena kazda bunka (ale uzamceni se projevi az po zamknuti listu)

Jeste me napadlo, ze by slo vlozit na formular tolik Labelu, kolik bude sloupcu a pomoci cyklu naplnit jednotlive sloupce prislusnymi hodnotami z listu a velikost Labelu a celeho userformu upravovat podle poctu probehnuti cyklu - neni to uplne elegantni, ale zase by to bylo bez problemu...

ahoj,
ja teda netusim, v cem by to mohlo byt, ale ve vlozenym linku jsem si precetl, ze Microsoft office Web Components nejsou obsazeny v Office 2007 - nemuze to byt tim?
(jestli je to mimo misu, tak se omlouvam )

O specialni funkci nevim, ale lze to obejit treba takto:Private Sub CommandButton1_Click()
If IsNumeric(TextBox1.Text) = False Then
MsgBox "V textboxu neni cislo"
TextBox1.Text = ""
Exit Sub
End If

If CDbl(TextBox1.Text) - CLng(TextBox1.Text) > 0 Then
MsgBox "Cislo v textboxu je desetinne"
TextBox1.Text = ""
Exit Sub
End If

If CDbl(TextBox1.Text) - CLng(TextBox1.Text) = 0 Then
MsgBox "Cislo v textboxu je celé"
TextBox1.Text = ""
Exit Sub
End If
End Sub

zkuste toto

aha, takze jestli to chapu spravne:
1) nejprve se overi, jestli ve 'starych datech' existuje vsechny zaznamy i v novych datech-ty, co nebudou v novych se vymazou (odstranit radek nebo ho jen smazat, aby zustal prazdny radek?)
2) Overi se, jestli vsechny data z novych existuji i ve starych, ty co nejsou ve starych se do starych zkopiruji...

je to spravne?

asi mi unika, ceho chcete dosahnout...

Jsem mozna natvrdlej, ale pokud se ma list stara dat upravovat podle Aktualnich dat, proc proste jednoduse nezkoprivoat list Aktualni data a prepsat jim list STara data, tak se to bude vzdy rovnat...

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje