Hej!

Nedan finns ett exempel. Koden läggs i arket och alltså inte i en modul.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    ActiveSheet.Range("A5:C8").Value = 1
End Sub

Notera att metoden känner vilken range som använts vid högerklickningen. (Rangen med namnet Target). Denna har egenskaper column och row mm som du kan använda dig av för att med if-satser begränsa vilka celler som påverkas eller vilka områden som kan markeras för att värdet skall sättas till 1 i en angiven range.

Hoppas du trivs med VBA. Det är mycket användbart både privat och i yrkeslivet så du har fått ett nyttigt intresse!

Kihlman

Hej!

Jag skrev tyvärr inte vad jag tänkte. Rätt modell är

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Target.Value = "1"
End Sub

Markera alltså de celler du vill och högerklicka sedan i den sista av dem så blir det värdet 1 i alla. Det borde vara den enklaste lösningen. Det går även att markera flera separata ytor med [Ctrl] så som du beskriver.

Mvh

/Kihlman

Kanon fungerar utmärkt

det enda som stör är att högerklicksfältet dyker upp

Om man vill utveckla det hela och slippa höger klicka utan köra det som ett Makro har du når förslag på sådanna lösningar

Jag är fortfarnde bara inne och grottar på ytan av VBA känner jag

//mats

Kanon fungerar utmärkt

det enda som stör är att högerklicksfältet dyker upp

Om man vill utveckla det hela och slippa höger klicka utan köra det som ett Makro har du når förslag på sådanna lösningar

Jag är fortfarnde bara inne och grottar på ytan av VBA känner jag

//mats

Hej igen!

Du kan ju skapa en funktion i en modul.

1) Öppna fönstret för att redigera kod, t..ex. genom att kilcka på [Alt] + [F11]

2) Högerklicka på projektets namn (texten VBAProject uppe till vänster i fönstret)

3) Välj alternativet infoga och sedan infoga modul.

4) Skriv koden nedan:

Public Sub AutoFyll()
    Selection.Value = "kkk"
End Sub

5) Gå tillbaka till kalkydbladet.

6) Gå till fliken utvecklare och klicka på knappen Makron

7) Markera i det fönster som nu poppar upp makrot du skapade i punkt 4.

8) Klicka på knappen alternativ.

9) I fönstret som nu visas finns en textbox för kortkommando. Skriv i denna ett q eller annan bokstav som inte redan är kopplad till någon funktionalitet.

10) Spara och stäng fönstret för makroredigering

11) Markera några celler i kalkylbladet.

11) Klicka på [Alt] + [q]. Ny fylls värden i valda celler.