HVIS - sætning

Har ikke helt forstået spm.

2,5% er det bare > 2,5 eller er det i forhold til noget?

Du skriver den skal stå H6:ac6 mener du så i hver celle?, for så er det jo ikke problem at springe over ,j,n,r,v

må det gerne være vba ?

Hej jlemming

I Celle E6 står der enten 2,5% eller 5%. Dvs at cellerne, enten skal øges med 2,5% eller 5%

Det skal forståes således at hvis cellene øges med 5%, er det kun cellerne
H,I,L,O,Q,T,W,X,AB,AC som skal opdateres, ikke J,N,R,V,Z (Her står fast tekst).
Værdierne i Cellerne  M,P,S,U,X,AA skal kopiers fra Nabocellen.
K=I,
M=L
P=O
S=Q
U=T
X=W
AA=Y


Hvis cellene øges med 2,5%, er det kun cellerne
H,I,K,L,M,O,P,Q,S,T,W,X,Y,AA,AB,AC , ikke J,N,R,V,Z

Er det volapyk?

/Pejsen

Ja, det må gerne være vba

Det med procenter er 2,5% eller 5% af det som står i AD kolonnen.


AFRUND((G6+($AD6*$E6))/$D6;0)*$D6

E6= 100 kg
G6= X antal kg
D6= Arunding i kg = enten 2,0 kg eller 2,5 kg

Ja, det må gerne være vba

Det med procenter er 2,5% eller 5% af det som står i AD kolonnen.
Undskyld, forkert

AFRUND((G6+($AD6*$E6))/$D6;0)*$D6

G6= X antal kg
AD= X Antal kg eks. 100 kg
ED= Procent forøgelse enten 2,5% eller 5 %
D6= Arunding i kg = enten 2,0 kg eller 2,5 kg

Hej

Jeg er ved at kigge på det, kommer tilbage senere iaften

Prøv dette, til at starte, jeg tror ikke det er som du gerne vil have det

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("E6:E19")) Is Nothing Then
    tabel25 = Array("H", "I", "K", "L", "M", "O", "P", "Q", "S", "T", "W", "X", "Y", "AA", "AB", "AC")
    tabel5 = Array("H", "I", "L", "O", "Q", "T", "W", "X", "AB", "AC")
    tabel5B = Array("K", "M", "P", "S", "U", "X", "AA")
    tabel5C = Array("I", "L", "O", "Q", "T", "W", "Y")
    For rk = 7 To 6 + 12
        If Cells(rk, "E") = 2.5 Then
            For Each t In tabel25
                Cells(rk, t).Formula = "=AFRUND((G6+($AD6*$E6))/$D6,0)*$D6"
            Next t
        End If
        If Cells(rk, "E") = 5 Then
            For Each t In tabel5
                Cells(rk, t).Formula = "=AFRUND((G6+($AD6*$E6))/$D6,0)*$D6"
            Next t
            For i = 0 To 6
                Cells(rk, tabel5B(i)) = Cells(rk, tabel5C(i))
            Next i
        End If
    Next rk
    End If
End Sub

Har ændret den lidt

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("E6:E19")) Is Nothing Then
    tabel25 = Array("H", "I", "K", "L", "M", "O", "P", "Q", "S", "T", "W", "X", "Y", "AA", "AB", "AC")
    tabel5 = Array("H", "I", "L", "O", "Q", "T", "W", "X", "AB", "AC")
    tabel5B = Array("K", "M", "P", "S", "U", "X", "AA")
    tabel5C = Array("I", "L", "O", "Q", "T", "W", "Y")
    For rk = 6 To 6 + 12
        If Cells(rk, "E") = 2.5 Then
            For Each t In tabel25
                Cells(rk, t).Formula = "=round((G" & rk & "+($AD" & rk & "*$E" & rk & "))/$D" & rk & ",0)*$D" & rk
            Next t
        End If
        If Cells(rk, "E") = 5 Then
            For Each t In tabel5
                Cells(rk, t).Formula = "=round((G" & rk & "+($AD" & rk & "*$E" & rk & "))/$D" & rk & ",0)*$D" & rk
            Next t
            For i = 0 To 6
                Cells(rk, tabel5B(i)) = Cells(rk, tabel5C(i))
            Next i
        End If
    Next rk
    End If
End Sub

Har du fået kigget på det ?

Hvordan gik det ?

Det er altid rart at få respons, når man har brugt sin kostbare fritid på at hjælpe andre. !!

Du har da også hidtil været god til at lukke dine spørgsmål ??

Hej Jlemming

Havde helt glemt dette spørgsmål.

Det var sådan at jeg kom ikke videre i sagen, da projektet blev lukket.

Men som tak for ulejligeheden får du point

Det er helt Ok, takker for point :o)