Søg
Avatar billede fagpoler Novice
06. juli 2003 - 13:25 Der er 11 kommentarer og
1 løsning

Gøre bestemt handling hvis aktivecell er i kolonne B

Jeg ved at man kan gøre en bestemt handling
hvis
If [iv1] = 2 Then
'koder
End If
eller
If ActiveSheet.Name = "Kunder" Then
'Koder
End if

Men kan man også gøre en bestemt handling hvis
activecell står kolonne B
Altså absolut kolonne relativ række

Hvis det er mulig vil jeg også gerne vide koden på
Absolut række relativ kolonne
Avatar billede kabbak Professor
06. juli 2003 - 14:57 #1
Prøv at lege lidt med disse, de er indbygget i ark modulet.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
'kode
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Then
'kode
End If
End Sub
Avatar billede kabbak Professor
06. juli 2003 - 14:58 #2
hvis du skal bruge række er det  = Target.row
Avatar billede kabbak Professor
06. juli 2003 - 20:41 #3
Nb. Target er den aktive celle
Avatar billede johs_j Novice
06. juli 2003 - 21:41 #4
if activecell = range("B:B") then
'kode
end if
Avatar billede fagpoler Novice
06. juli 2003 - 23:46 #5
jeg ved hvordan man tildeler en makro til en knap eller genvejstast mm.
Sub Makro1()
    Range("E12").Select
End Sub
Men hvordan tildeler man en Private Sub til en knap eller genvejstast mm.
Avatar billede kabbak Professor
07. juli 2003 - 00:00 #6
hvis du har en commandbuttom der hedder Knap, kalder du andre makroer, spm skal ligge i et modul, på denne måde.

Private Sub Knap_Click()
Call Makronavn
End Sub
Avatar billede kabbak Professor
07. juli 2003 - 00:00 #7
spm = som
Avatar billede kabbak Professor
07. juli 2003 - 00:01 #8
Men du kan kun kalde en public sub
Avatar billede kabbak Professor
07. juli 2003 - 00:06 #9
Jo du kan men de skal ligge i samme arkmodul.
eks. som jeg testede i Ark1 modulet

Private Sub hej()
MsgBox "hej"
End Sub

Private Sub FindHej()
Call hej
End Sub
Avatar billede fagpoler Novice
07. juli 2003 - 00:09 #10
Sådan her?
Sub Makro1()

Call Worksheet_Change
   
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Range("D10").Select
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Then
'kode
End If
End Sub
Avatar billede kabbak Professor
07. juli 2003 - 00:18 #11
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 and Target.row = 2 Then' = B2
Range("D10")= 10
End If
End Sub

Disse sub bliver kaldt automatisk, i dette tilfælde hvis du skriver eller ændrer i celle B2, kører makroen

prøv feks. at sætte koden ind i ark1 modulet, og skriv så i B2.
Avatar billede fagpoler Novice
07. juli 2003 - 00:27 #12
Ok Mange tak
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Flytte fra et projekt til andet Af hkprofil i Excel 1 11/11/202612:17 11/11/202613:08
Slet tal, bevar de underliggende formler Af bbkdk i Excel 7 11/11/202609:23 I dag 16:57
Måned og år på graf Af mort1 i Excel 4 31/10/202613:01 01/11/202614:13
VB, Lægge 2 celler sammen og skrive den i cellen ved side af Af MC3390 i Excel 9 23/09/202618:11 24/09/202611:16
Ændre tal i en celle Af xvid i Excel 1 04/09/202616:05 04/09/202616:54
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 08:39 Produktnøgle Af hkv i Office & Kontorpakker
I går 16:59 Bitlocker Af nico i Windows
12/1116:30 Wlan i windows 11 home Af dcedata1977 i Windows
11/1121:19 Irriterende ikon på proceslinjen Af ErikHg i Windows
11/1116:33 Kan man slippe af med "msn" ? Af Ikke-ekspert i Windows
White papers
Flere white papers »