< návrat zpět

MS Excel

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

Zaslal/a Raders486 7.7.2017 12:21

Ahoj.

Jelikož to tu nějak zahálí 1, 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: rar36811_automat-chybejici-material-rousinov.rar (246kB, staženo 23x)
Zaslat odpověď >
elninoslov(7.7.2017 17:10)#036813
elninoslov
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: zip36813_automat-chybejici-material-rousinov.zip (251kB, staženo 22x)
citovat
Raders486(7.7.2017 17:38)#036814
avatar
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
avatar
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 1

Děkuji
Radekcitovat
elninoslov(7.7.2017 21:17)#036816
elninoslov
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
avatar
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)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje