Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketBasic vba problemer for nybegynder
 Besvar Besvar
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
bosstec Se dropdown
Forum Begynder
Forum Begynder
Avatar

Medlem: 06.Aug.2011
Land: DK
Status: Offline
Point: 2 		Direkte link til dette indlæg Emne: Basic vba problemer for nybegynder
    Sendt: 06.Aug.2011 kl. 09:45
Jeg har denne kode som er knyttet til celle Q8
Hvordan kan jeg lave referencer til andre celler samtidig?
Koden skal også virke til følgende celler:
Q9-Q16 + Q19-Q27 + Q30-Q38 + Q41-Q49 + Q52-Q60 + Q63-Q71 + Q74-Q82
Ligeledes skal de røde referencer i koden stige samtidig.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim formula As String
    If Not Application.Intersect(Target, Range("P8")) Is Nothing Then
        If Target.Value = "Vagtudkald" Then
        Range("Q8").Value = ""
        Range("Q8").Select
            With Selection.Interior
            .Color = RGB(255, 255, 0)
        End With
            With Selection.Validation
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:="=Time24"
        End With
        Else
        Range("Q8").FormulaLocal = "=IF(OR(P8="""";R7="""");"""";R7)"
        Range("Q8").Select
            With Selection.Interior
            .Color = RGB(217, 217, 217)
        End With
            With Selection.Validation
            .Delete
        End With
        End If
    End If
End Sub
Til top



Til top
rassten Se dropdown
Guld bruger
Guld bruger


Medlem: 26.Okt.2010
Status: Offline
Point: 694 		Direkte link til dette indlæg Sendt: 07.Aug.2011 kl. 17:29
Jeg kan ikke se hvad du ønsker med valideringen,
men at få koden til at virker på andre områder og få dine "røde" værdier til at stige, kan du måske bruge
nedenstående som en hjælp


Private Sub Worksheet_Change(ByVal Target As Range)
    Dim formula As String
    If Not Application.Intersect(Target, Range("P8:p16, P19:P27, P30:P38")) Is Nothing Then
        If Target.Value = "Vagtudkald" Then
            Target.Offset(, 1).Value = ""
            Target.Offset(, 1).Interior.Color = RGB(255, 255, 0)
            Target.Offset(, 1).Select
           ' her kan du indsætte din validering
           
            Else
            a = Target.Value
            b = Target.Offset(-1, 2)
            If a = "" Or b = "" Then c = "" Else c = Target.Offset(-1, 2)
            Target.Offset(, 1) = c
            Target.Offset(, 1).Interior.Color = RGB(217, 217, 217)
            Target.Offset(, 1).Select
            ' her kan du indsætte din validering
            
        End If
    End If
    
End Sub
VH rassten

Arbejde excel 2010
Privat excel 2010
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk