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

MS Excel

Téma: Vymaž komentář z buňky

Zaslal/a Raders486 7.7.2017 12:21

Ahoj.

Jelikož to tu nějak zahálí , tak tu mám další jobovku.
Našel jsem si makro viz níže, které mi šlape, jak autor napsal.

Potřeboval bych ho však upravit, viz samotný kód
Sub ChystámeZobrazitN()
Application.ScreenUpdating = False

Dim Firstrow As Long
Dim Lastrow As Long
Dim Lrow As Long
Dim CalcMode As Long
Dim ViewMode As Long
With Application
CalcMode = .Calculation
.Calculation = xlCalculationManual
End With
With ActiveSheet
.Select
ViewMode = ActiveWindow.View
ActiveWindow.View = xlNormalView
.DisplayPageBreaks = False
Firstrow = .UsedRange.Cells(1).Row
Lastrow = .UsedRange.Rows(.UsedRange.Rows.Count).Row
For Lrow = Lastrow To Firstrow Step -1
With .Cells(Lrow, "N") ' Sloupec s hledanými podmínkami
If Not IsError(.Value) Then
Select Case .Value
Case Is = "0": .Offset(0, 10).Range("A1").ClearContents 'když je buňka ve sloupci větší než "0" tak vymaž obsah buňky .Offset(0, 10)
End Select
End If
End With
Next Lrow
End With
ActiveWindow.View = ViewMode
With Application
.Calculation = CalcMode
End With

Application.ScreenUpdating = True
End Sub

Děkuji
Radek

Příloha: 36811_automat-chybejici-material-rousinov.rar (246kB, staženo 23x)

Zaslat odpověď >

---

elninoslov(7.7.2017 17:10)#036813

To makro to robí bunku po bunke = pomalé. Toto makro s názvom "Makro" to robí hromadne. Navyše dosť pochybujem o nutnosti použitia zmeny režimu zobrazenia na začiatku, rovnako ako o hľadaní prvého riadku. Prvý riadok dát bude u Vás predpokladám vždy riadok 3.
Otestujte, lebo príliš som to neskúmal...

Příloha: 36813_automat-chybejici-material-rousinov.zip (251kB, staženo 22x)

citovat

Raders486(7.7.2017 17:38)#036814

Ahoj.
Děkuji za objasnění i samotné makro. Pravda je, že první řádek je pro mě vždy řádek třetí.

Jinak jsem stáhl, vyzkoušel a nezměnilo se vůbec nic.

Ale trochu jsem si s tvým makrem pohrál a dostal tížený výsledek. Moje chyba špatně jsem popsal zadání.

Správné zadání mělo být: když buňka ve sloupci "N">"0" tak buňka ve sloupci "X" bude prázdná.

Moc děkuji
Radekcitovat

Raders486(7.7.2017 18:18)#036815

Ještě jsem se chtěl zeptat, zda by se ta jedná podmínka ("N">"0") dala ještě rozšířit o druhou a to nějak takto

If aHDN(Lrow, 1) > 0 And .Interior.Color = 5296274 Then

Snad je pochopitelné na co se ptám

Děkuji
Radekcitovat

elninoslov(7.7.2017 21:17)#036816

Máte na mysli .Interior.Color každej bunky v "N" ? Tá farba je pomocou PF ? Ak áno, aký je vzorec v PF ? (to sa riešilo v minulom vlákne).

Ak by mal byť vzorec PF napr. iba porovnanie s inou bunkou, tak by bolo pre makro rýchlejšie si interne znovu vyhodnotiť všetky podmienky (teda dôjsť k rovnakému výsledku ako PF) cez naraz načítané pole, ako čítať postupne farbu z každej bunky. Prechodov medzi listom a VBA je dobré mať čo najmenej.citovat

Raders486(7.7.2017 23:02)#036817

Dobrý večer.
Ta úvaha je správná, ano odkazuje s to na poslední vlákno konkrétně na tu barvu buňky která je .Interior.Color = 5296274
Už se mi to ale podařilo obejít filtrem.
Ještě jednou moc děkuji a považujte za uzavřeno.

Děkuji
Radekcitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse