Søg
Avatar billede bredan1977 Nybegynder
21. februar 2005 - 14:42 Der er 7 kommentarer og
1 løsning

Fang retning i celler!?

Jeg har en formel, hvor den skal vælge en anden række osv hvis der er nogen der indtaster noget i den...

sojle = ActiveCell.Column
raekke = ActiveCell.Row

If Target.Address = Range("$K$13:$K$179").Address Then
    Cells(raekke, sojle).Formula = Cells(raekke, sojle).Offset(0, 15).Formula
End If


Eks trykker jeg "H" i en celle i området K13:179, så skal den hente formelen i forskydningen 15 til højre... men den fanger ikke rigtigt noget.... hvorfor????
Avatar billede kabbak Professor
21. februar 2005 - 15:12 #1
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("$K$13:$K$179")) Is Nothing Then
    Cells(Target.Row, Target.Column).Formula = Cells(Target.Row, Target.Column).Offset(0, 15).Formula
    End If
End Sub
Avatar billede bredan1977 Nybegynder
21. februar 2005 - 15:20 #2
Ja... næsten... hvis jeg trykker "F" og trykker pil nedaf virker det ikke... men trykker jeg "F" og trykker ENTER så er den god nok!!!
Avatar billede kabbak Professor
21. februar 2005 - 15:29 #3
min virker uanset hvad jeg gør, den skal virke hvis, cellen skifter værdi under din indtastning
Avatar billede jkrons Professor
21. februar 2005 - 15:34 #4
kabbaks løsning virker også hos mig :-)

Dog med den lille hage, at man aldrig kan slette indholdet af en celle igen, da det jo også er en ændring :-)
Avatar billede bredan1977 Nybegynder
21. februar 2005 - 15:42 #5
Ja... celler skal være have en slags skrivbeskyttelse....
Avatar billede kabbak Professor
21. februar 2005 - 16:24 #6
nu kan der slettes

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("$K$13:$K$179")) Is Nothing Then
Application.EnableEvents = False
If Target <> "" Then
    Cells(Target.Row, Target.Column).Formula = Cells(Target.Row, Target.Column).Offset(0, 15).Formula
    Else
    Target = ""
    End If
    Application.EnableEvents = True

    End If
End Sub
Avatar billede bredan1977 Nybegynder
22. februar 2005 - 08:26 #7
Årh det er guld... takker!!!
Avatar billede kabbak Professor
22. februar 2005 - 08:35 #8
du får et svar ;-))
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 I går 12:17 I går 13:08
Slet tal, bevar de underliggende formler Af bbkdk i Excel 3 I går 09:23 I går 20:07
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 går 21:19 Irriterende ikon på proceslinjen Af ErikHg i Windows
I går 16:33 Kan man slippe af med "msn" ? Af Ikke-ekspert i Windows
I går 12:17 Flytte fra et projekt til andet Af hkprofil i Excel
I går 09:23 Slet tal, bevar de underliggende formler Af bbkdk i Excel
09/1108:35 D3D12 lukker nogle spil ned Af thedukedk i Andet software
White papers
Flere white papers »