Příspěvky uživatele

Mám toto makro pro automatický zápis datumu, funguje jak má.
Díky eLCHa.

Sub subWriteMissingDates()
With ThisWorkbook.Sheets("List1")
If IsEmpty(.Cells(1)) Then

.Cells(1).Value = Date - 1
Else
Dim dMax As Date

dMax = Application.WorksheetFunction.Max(.Columns(1))
If dMax < (Date - 1) Then
Dim iMissingValuesCount As Integer
iMissingValuesCount = (Date - 1) - dMax
With .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(iMissingValuesCount, 1)

.Value = Application.Evaluate(CLng(dMax) & "+(ROW(1:" & iMissingValuesCount & "))")

.NumberFormat = "d.m.yyyy"

End With '.Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(iMissingValuesCount, 1)
End If
End If
End With 'ThisWorkbook.Sheets("List1")
End Sub

A potřeboval bych aby se mi autmaticky zpouštělo po povolení makra.
Taky bych poteboval skrýt prázdné řádky a slouce.

Na netu jsem to našel, ale nejde mi to naroubovat do vzorce. Když už se mi je povede skrýt tak se skryjí všechny i ty vyplněné.

Díky za omc.

Že se testuje jen jedna hodnota mi nevadí, ta druhá se tam zapisuje automaticky jiným makrem. Všechno mi funguje. I vzorec který vypadá takto:

Cells(n, 8) = Cells(n, 9) / (Cells(n, 1) - 41532)

Ale potřeboval bych výsledek zaokrouhlený na dvě desetinný místa a to mi tam nejde dát. Zkoušel jsem to přepsat místo Cells na RC a taky nic.

Oboje VBA funguje výborně. Jak jsem psal že jsem našel makro co do buněk píše vzorce tak to se spustí pokaždé když se zapíše do sloupce A hodnota, ale nejde mi to na tyhle makra dostat. Prosím lze to udělat i u těchto maker?

Ahoj, do sloupců A, B budu zapisovat hodnoty. Ve sloupci C se budou sčítat. A potřeboval bych aby pokaždé když zapíšu hodnoty se sečetly a výsledek se zapsal do buňky, tj. A1+B1=C1 atd. A potřebuju to vyřešit pomocí VBA. Jak na to? Něco jsem pohledal, ale to zapisovalo vzorec a ne hodnotu. Budu tam mít i daleko složitější výpočty a potom mi moc narůstá velikost souboru.

Díky za odpovědi

Já mám Excel 2007.

V souboru Datum_pred_odtranenim_End(xlUp) jsem jen změnil sloupec kde se umístí kurzor. Nyní se umisťuje do buňky I1.

V souboru Datum_po_odtraneni_End(xlUp) jsem odtranil End(xlUp)a změnil sloupec. Nyní se mi kurzor umístí ve sloupci I na řádku posledního data (včerejší datum).

Vyzkoušeno na dvou stolních PC a dvou NTB s Excelem 2007.

Netvrdím v žádném případě že je to správně, že je to bez chyby. Ale mě to tak prostě funguje.

pro eLCHa:

Děkuji za Váš čas a podrobné vysvětlení.

Po vložení

.Select
.Cells(.Rows.Count, 1).End(xlUp).Select
mě to dávalo "kurzor" na buňku A1. Já potřebuju aby mi to kurzor dávalo na řádek se včerejším datem do sloupce I. Proto jsem si dovolil upravit kód takto:

.Select
.Cells(.Rows.Count, 9).Select
Několikrát jsem to vyzkoušel a funguje mi to. Snad je úprava v pořádku.

Děkuji za Vaši trpělivost se mnou

Moc díky, funguje to výborně.

Jen bych ještě potřeboval aby mě "kurzor" po skončení makra zůstal na stejném řádku jako včerejší datum.
Dosud to bylo vyřešeno pomocí Cells(pR + n, "I").Select, ale teď tam ty proměnný nejsou a určitě to půjde i bez příkazu Select. Tedy mě je jedno jestli tam ten Select je nebo ne.

Teď se blbě zeptám, ale v tomhle jsem totální BFU. Co je špatnýho na příkazu Select?
Vidím ho všude používat.
Ještě jednou mod díky

Napadla mě ještě jedna věc. V souboru je malkro které používám zápis data do sloupce A. Ale když např. jeden den nespustím soubor (jako je ukázáno v souboru) tak mi tam pak chybí data. Myslel jsem udělat cyklus který je doplní od posledního zaznamenaného data až do včerejšího dne. Ale jak zjistím ve VBA poslední zapsané datum? Value, Value2, Text? A jak definovat proměnou?
Nebo na to jdu špatně?

Díky za rady

Tak skrývání a zobrazování řádků jsem zrušil.

Makro funguje bezva, ale mám tam víc listů a někdy zapomenu, když soubor ukládám to přepnout na list kam to makro má zapisovat datum a pak mi to zapisuje na špatný list.
Lze udělat aby makro zapisovalo např. na List2 po spuštění i když se to otevře na listu List1?

Děkuji

Díky, to je přesně ono.

Snad jsem to v přílohách popsal srozumitelně. Popravdě mě ani nenapadlo tohle řešit pomocí VBA. Jsem BFU tak prosím o trpělivost.
Prostě chci tlačítko na které když kliknu tak budu moci rovnou zadávat data do první volné buňky v daném sloupci. Ten sloupec se měnit nebude.

Díky za rady

Tak tohle mi hlava nebere.
Udělám tohle makro a co dál? Co mám napsat do políčka Zadejte odkaz na buňku? To makro se asi samo po kliknutí na tlačítko nespustí, nebo ano?

Excel 2007

Mám vytvořené tlačítko na které když kliknu tak skočín na odkazovaný list. To umím a funguje jak má.

Při vytváření odkazu je tam políčko - Zadejte odkaz na buňku - standardně tam je A1.

Jde nějak udělat aby odkaz odkazoval na první prázdnou buňku ve sloupci I?
Tam se průběžně připisují hodnoty a postupně se sloupec I vyplňuje.

Díky všem

Díky, to je ono.

Jenom jsem potřeboval aby mi to zapisovalo ne dnešní, ale včerejší datum.
Takžejem to upravil že jsem odečel od Date jedničku.

If Cells(pR, "A") <> Date - 1 Then
Cells(pR + 1, "A") = Date - 1: n = 1

Je to v pořádku? Já to pár dní zkoušel a funguje to.

Díky

Skrýt a zobrazit řádky se mi povedlo pomocí

Rows("4:13").Select
Selection.EntireRow.Hidden = True
Selection.EntireRow.Hidden = False

Ale když se mi pomocí vzorce do řádku 14 zapíše datum jak to dát do příkazu Rows? Proměnná? Jak ji zadat?

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje