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

MS Excel

Téma: < nebo rovno

Zaslal/a Karel-3 24.6.2020 15:00

Jde nějak jednoduše upravit rozhodování

Mám kopírování buněk na základě toho je li v buňce prázdno

Workbooks(JmenoS).Worksheets(Rok).Range("I1") ="" Range("P2")) Then

'Rozhodování, zda se v buňce nachází nic

Chtěl bych toto rozšířit na to bude li tam menší číslo to bych nahradil = za > ale jde mě o to zda li jde ještě nějak ošetřit i to když by I1 byl text aby se přepsal
Asi něco jako
Workbooks(JmenoS).Worksheets(Rok).Range("I1") =OR("";"Nejsou data";< Range("P2")) Then

V buňce I1 by mohlo být menší číslo nebo text (nejčastěji nejsou data) Které bych chtěl přepsat

Zaslat odpověď >

---

Karel-3(24.6.2020 15:25)#047046

Asi už jsem našel co jsem hledal

Workbooks(JmenoS).Worksheets(Rok).Range("I1") < Range("P2") Or "Nejsou data" = Workbooks(JmenoS).Worksheets(Rok).Range("I1") Then
citovat

elninoslov(24.6.2020 15:38)#047047

Myslíte test, či v bunke je text "Nejsou data", alebo chcete otestovať či je bunka prázdna niečim podobným:
IsEmpty(Workbooks(JmenoS).Worksheets(Rok).Range("I1"))
LenB(Workbooks(JmenoS).Worksheets(Rok).Range("I1"))=0
Workbooks(JmenoS).Worksheets(Rok).Range("I1").Value=""citovat

Karel-3(24.6.2020 15:51)#047048

Šlo mě jen o to že v buňce I1 muže nastat
je prázdná = chci přepsat P2
"Nejsou data" = chci přepsat text nejsou data s daty z buňky P2
Je li I1 menší číslo = také přepsat daty z P2
Je li větší = hodí mě to MSG box.
Nalezené řešení mě takto funguje tak že asi dál zkoumat není třeba, ale i tak dík za pomoccitovat

elninoslov(24.6.2020 17:49)#047049

Tak testujte o 1 podmienku menej. Ak to dobre chápem, tak stačí otestovať či je I1 v tom inom zošite číslo a zároveň ak je, tak či je väčšie ako P2 a aktuálnom liste aktuálneho zošitu. Ak je splnená táto dvojpodmienka tak hodnotu I1 v inom zošite nahradiť tou z P2 z aktuálneho listu aktuálneho zošitu. Ale nahradí to aj keď bude I1 obsahovať "abc" alebo iný text ako "Nejsou data", teda akýkoľvek. Neviem, čo môže I1 nadobúdať.

Sub pokus()
Dim JmenoS As String, Rok As String, Nahradna As Double, Hodnota

JmenoS = "Zošit1"
Rok = "Hárok1"
Nahradna = Range("P2").Value
With Workbooks(JmenoS).Worksheets(Rok).Range("I1")
Hodnota = .Value
If IsNumeric(Hodnota) And Hodnota > Nahradna Then MsgBox "kuk" Else .Value = Nahradna
End With
End Sub
Ale máte pravdu v tom, že sa tým netreba zaoberať, či ide o 1 alebo 2/1000 sek je šumák. To len tak z nudy... citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse