MS Excel

Téma: Vloz s podmienkou

Zaslal/a Dunkaninko 13.12.2010 15:42

Este raz zdravim.Potreboval by pomoct s makrom. Mam jednoduche makro, ktore po zapise do bunky konvertuje male pismeno na velke:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D3:D24,H3:H24")) Is Nothing Then
Target = UCase(Target)
End If
End Sub
Potreboval by som upravit makro tak, aby sa tato zmena uskutocnila len vtedy, ak v stlpci B v riadku zodpovedajucemu Targetu nie je nulova hodnota (<>"") a zaroven ak tato hodnota ="" aby sa bunka do ktorej sa vlozila hodnota v "Target, Range("D3:D24,H3:H24") vynulovala (="") . Dakujem

Zaslat odpověď >

Poki(13.12.2010 16:28)#003499

snad jsem to spravne pochopil:Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D3:D24,H3:H24")) Is Nothing And IsEmpty(Cells(Target.Row, 2)) = False Then
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
End If

If Not Intersect(Target, Range("D3:D24,H3:H24")) Is Nothing And IsEmpty(Cells(Target.Row, 2)) = True Then
Application.EnableEvents = False
Target.ClearContents
Application.EnableEvents = True
End If

End Subcitovat

Dunkaninko(13.12.2010 17:19)#003500

Vdaka, funguje.
Prajem prijemne prezitie vianocnych sviatkov a vsetko najlepsie v novom roku 2011citovat

Uživatelské menu

Nejste přihlášen(a)

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.