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

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse