VBA code starten door in een bepaalde cel te klikken

[Rudi Rombouts]

Hoe kan ik VBA code starten als ik in een bepaalde cel (voorbeeld D10) klik ?

 

[snabbi]

Je moet in je visual basic editor in je projectverkenner de betreffende sheet pakken. Gebruik dus geen module!

In deze sheet-pagina plaats je de code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub

waarbij Target de cel is die wordt aangeklikt. in het formaat $a$1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
if Target = "$D$10" Then
doemacro
end if
End Sub

 

[Rudi Rombouts]

sorry,

doch werkt niet als ik in die cel klik

 

[jheesterbeek]

Target is de nieuw-geselecteerd cel, niet de cel die je verlaat. Daarom werkt het niet.
Helaas heb ik (nog) geen andere manier bedacht


"Fouten vinden is eenvoudig, het vinden van oplossing siert de ware specialist"

 

[Withaar]

Een voorbeeld:

Code moet in this_workbook staan.
Waar het echt om gaat is Workbook_SheetSelectionChange


Option Explicit

Public sAddress As String
Public sRow As String
Public sKolom As String
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
If Not Intersect(Target, Range("L1:T2")) Is Nothing Then
sAddress = ActiveCell.Address
sRow = ActiveCell.row
sKolom = ActiveCell.Column
' kies een kleur, maak kopie hier van in cel F2
Range(sAddress).Select
Selection.Copy
Range("F2").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
Range("B2").Select
End If
End Sub


Korte uitleg waar de sheet voor gebruikt wordt.
Code komt uit deze sheet, je vult wat waarden (3) kiest eventueel een kleur, gaat op een rij staan die je wilt vullen en drukt op de button vullen.
Zo kan je heel snel een planning maken.

 

[Rudi Rombouts]

Sorry, doch dit lukt me niet
wil gewoon dat wanneer ik in voorbeeld cel E10 klik en deze is leeg er een INPUTBOX te voorschijnkomt

Private sub "klik in cel E12"

if [E12] = "" then
range ("E12") = Inputbox ("geef de nieuwe waarde in")
Endif

End sub

 

[snabbi]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$E$10" Then
Range("E10").Value = InputBox("geef de nieuwe waarde in")
End If
End Sub

 

[Rudi Rombouts]

Sorry maar,
dit werkt niet als ik in die cel klik

Rudi

 

[snabbi]

Check aub ook even je macroinstellingen:

 

[Rudi Rombouts]

Snabbi,
sorry dat ik u nog eens lastig val
doch kan op "het werk" geen winrar installeren
kan u het eventueel op een andere manier "posten"
en mijn macro instellingen controleren, geen idee waar hebben toch altijd goed gewerkt dacht ik
Rudi

 

[jheesterbeek]

Nog een keer dan:
Target is de nieuw-geselecteerd cel, niet de cel die je verlaat. Daarom werkt het niet.

Ik zou de inhoud van de cel controleren met Data - Valideren om te zorgen dat de correcte waarden worden ingevoerd. Daarnaast een macro opnemen die om input vraagt als je het blad verlaat, de file opslaat of afsluit.
Je kunt ook overwegen om de inputbox te openen bij het openen van het betsand/tabblad. Op die manier kan het niet vergeten worden.
Als een van bovenstaande ideeen je wat lijken zal ik wel een macro'tje voor je neerzetten.

Succes

John

 

[Withaar]

7zip

.Rar bestandjes staan wel vaker op de site, een goede gratis un-rar is 7zip.

7-Zip is free software distributed under the GNU LGPL
Supported formats: 7z, ZIP, CAB, RAR, ARJ, GZIP, BZIP2, Z, TAR, CPIO, RPM and DEB
For ZIP and GZIP formats 7-Zip provides compression ratio that is 2-10 % better than ratio provided by PKZip and WinZip
Self-extracting capability for 7z format
Integration with Windows Shell
Powerful File Manager
Powerful command line version
Plugin for FAR Manager
Localizations for 57 languages

Hier te downloaden.

Na het installeren heb je diverse versie, voor windows moet je de 7zFMn.exe gebruiken.

Bijgaand ook nog het bestandje, maar nu als zip file.

 

[snabbi]

Geplaatst door jheesterbeek
Nog een keer dan:
Target is de nieuw-geselecteerd cel, niet de cel die je verlaat. Daarom werkt het niet.

Ik zou de inhoud van de cel controleren met Data - Valideren om te zorgen dat de correcte waarden worden ingevoerd. Daarnaast een macro opnemen die om input vraagt als je het blad verlaat, de file opslaat of afsluit.
Je kunt ook overwegen om de inputbox te openen bij het openen van het betsand/tabblad. Op die manier kan het niet vergeten worden.
Als een van bovenstaande ideeen je wat lijken zal ik wel een macro'tje voor je neerzetten.

Succes

John

Hij wil juist dat wanneer je een cel aanklikt dat het inputvenster komt, niet wanneer je hem verlaat. Verder is valideren idd de beste manier om bij het verlaten een waarde te controleren.

 

[Rudi Rombouts]

Sorry jongens,
geen ruzie
voor mij werkt het en ook bedankt voor de RAR
in ieder geval bedankt voor het meedenken

Rudi