Příspěvky uživatele

Zdravím,

makra vůbec neumím a toto mi vytvořil ChatGPT. Problém je, že mi to stále hází run time error 1004 method range of object _worksheet failed

Private Sub Worksheet_Change(ByVal Target As Range)
Dim testValue As Variant
Dim myRange As Range

Set myRange = Range("D8:D372")

If Target.Cells.Count > 1 Then Exit Sub 'ignoruje změny s více než jednou buňkou
If Intersect(Target, myRange) Is Nothing Then Exit Sub 'ignoruje změny mimo určený rozsah

testValue = Target.Value
If IsNumeric(testValue) Then
If testValue >= 0 And testValue < 1 Then
Target.Value = Format(testValue, "h:mm")
ElseIf testValue >= 1 And testValue < 24 Then
If Int(testValue) = testValue Then
Target.Value = Format(testValue, "0") & ":00"
Else
Target.Value = Format(testValue, "h:mm")
End If
End If
End If
End Sub

Pokud bych chtěl, aby makro fungovalo pouze ve sloupci E, tak je kód
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub 'ignoruje změny s více než jednou buňkou
If Target.Column <> 5 Then Exit Sub 'ignoruje změny mimo sloupec E

Dim testValue As Variant
testValue = Target.Value

If IsNumeric(testValue) Then
If testValue >= 0 And testValue < 1 Then
Target.Value = Format(testValue, "h:mm")
ElseIf testValue >= 1 And testValue < 24 Then
If Int(testValue) = testValue Then
Target.Value = Format(testValue, "0") & ":00"
Else
Target.Value = Format(testValue, "h:mm")
End If
End If
End If
End Sub

A ten funguje dokonale. Kde je prosím chyba pokud potřebuji, aby makro fungovalo v D8:D372?

Přeji vše nej v novém roce :)

Prstoklad dělám pravidelně, ale ten mi teda funguje jen po část CTRL+C. Když otevřeš Gmail-Nový email a dáš CTRL+V, tak se mi vloží i to, co nebylo označeno a tedy konkrétně řádek 6. Tobě to funguje?

Přeji vše nej v novém roce :)

Chtěl bych se připomenout se zadáním času. Dále pak mám následující prosbu. Ve sloupci Firma/Kontaktní osoba/Místo potřebuji neustále dokola vyplňovat převážně stejná data avšak různé kombinace firem, cest a někdy i kontaktních osob. Příklad jsem uvedl do V8.

Firem bývá 1-10. Jde udělat například nějaký seznam na novém listu a pak se bude text doplňovat automaticky - ve smyslu napíšu FirmaX a doplní se zbytek? Lze to do jedné buňky nebo by každá firma/návštěva musela mít vlastní buňku? Obě řešení jsou přípustná.

Obrázek ideálního řešení scrollováním.

Zdravím,

často potřebuji zkopírovat ukotvené názvy a k tomu Xtý řádek nebo více řádků. Bohužel neznám jiné řešení, než všechny ostatní řádky skrýt, zkopírovat ty, které potřebuju a pak znovu odkrýt ostatní. Tohle mi ale přijde jako dost nešikovné a zdlouhavé řešení.

Ideální varianta by byla, kdybych jen vhodně zascrolloval viz obrázek. To by samozřejmě řešilo jen jeden řádek a nemohl bych takhle nakopírovat například 7., 10. a 12.. I tak by to byl ale mega pokrok.

P.S.: Označení názvů + řádku 10 přes CTRL znamená, že se do emailu vloží názvy + všechny řádky až do 10.

@Stalker díky, nastavil jsem to a chyba už se neukazuje. Předpokládám, že se však má otevřít Outlook a ten se neotevře a ani žádný email se neodešle. Musím někam vyplnit přihlašovací údaje nebo něco udělat?

Když dám debug, tak na tomhle:
Set refREFS = .VBProject.references 'převzetí kolekce referencí

@elninoslov mě ten soubor nefunguje a hlásí run time error 1004. Je potřeba někde zadat email nebo něco?

Mohu poprosit o odpověď viz formát buňky? Zkoušel jsem všemožný kombinace hh:mm a nedaří se mi to.

Ještě dotaz, jakej zvolit formát buňky, abych čas mohl zadávat tak, že napíšu "16" + enter a automaticky se napíše "16:00". V případě minut bych to musel napsat celý ručně, to je ok. Ale celý hodiny budou nejčastější údaj a je otravný vypisovat "16:00"

@Lugr moc děkuji, přesně tak

Zdravím,

potřeboval bych pomoct. V přiloženém souboru se mi nedaří:
1) Podmíněným formátováním a funkcí DENTÝDNE mi zčervenají řádky víkendů, abych je nevyplňoval. Jde nějakým způsobem automatizovat i svátky, abych je nemusel vyplňovat manuálně v konkrétní datum?

2) Ve chvíli, kdy sloupec V obsahuje slovo víkend, dovolená nebo svátek smazat a zamčít sloupce D až T v tom daném řádku. Zároveň by bylo super, abych přes tyto řádky mohl přetahovat vzorce.
Tzn řádek 9 bude vymazaný. Já ale upravím v řádku 8 vzorec, který chci přetáhnout až do řádku 37. V červených řádcích by ale vzorce ani nic jiného být nemělo a měly by být prázdné.

Děkuji

@Stalker moc děkuju :) vypadá to jednoduše, ale takhle bych to nedal. Super :)

Ahoj,

máme novej způsob nacenění a nevím, jak upravit vzorec, aby mi to fungovalo, tak se tu zas zkouším obrátit na mnohem zkušenější uživatele.

0-400kg je pevná cena 600 Kč
401-nekonečno kg je cena: váha * 1,5Kč/kg

Byl by někdo prosím tak hodnej a upravil vzorec?

Moc díky :)

@Jiří497 přesně takhle je to super a já se klaním a moc děkuji

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje