VBA: hvad er der forkert?

Range("E2:E?") og Range("F2:F?")

#1 Der er mange værdier.

Skal jeg så finde den sidste række med tallet og skrive der?

Du vil skrive formlen i et område der ikke er komplet.

#3 har fundet fejlen, men den stadig viser debug.

Sub ny()

Dim antalDage As Double
Dim beløbet As Double
Dim infonr As Double


    antalDage = Worksheets("Hjem").Range("A1").End(xlDown).Row
    beløbet = Worksheets("Hjem").Range("B1").End(xlDown).Row
    infonr =Worksheets("Hjem").Range("C1").End(xlDown).Row
   
       
    If (antalDage < 14 And  beløbet > 4000 ) Then
        Range("E2:E").Formula = "=B2*C2*0.6"
    ElseIf (antalDage = 14 And patientensAlder > 7000) Then
        Range("E2:E").Formula = "=B2*C2*0.6"
    End If
   
    If (antalDage < 14 And beløbet < 3000) Then
        Range("E2:E").Formula = "=B2*C2*1.6"
    ElseIf (antalDage = 14 And patientensAlder < 3000) Then
        Range("E2:E").Formula = "=B2*C2*1.6"
    End If

End Sub

Der mangler stadig række nr.
Range("E2:E")
Fra E2 til E ?

Eller vil du kun skrive i celle E2 ?

#5
har 162 rækker i alt. Har skrevet fra Range("E2:E162")

men nu kommer der ikke noget frem, som er meget mærkeligt.

Er der ikke andre metoder for at beregne det?

Vil du skrive formlen =B2*C2*0.6 i 161 celler?

#7

Nu ser den således ud. Men kommer ikke noget resultat frem.

Sub ny()

Dim antalDage As Double
Dim beløbet As Double
Dim infonr As Double


    antalDage = Worksheets("Hjem").Range("A1").End(xlDown).Row
    beløbet = Worksheets("Hjem").Range("B1").End(xlDown).Row
    infonr =Worksheets("Hjem").Range("C1").End(xlDown).Row
   
       
    If (antalDage < 14 And  beløbet > 4000 ) Then
        Range("E2:E162").Formula = "=B2*C2*0.6"
    ElseIf (antalDage = 14 And patientensAlder > 7000) Then
        Range("E2:E162").Formula = "=B2*C2*0.6"
    End If
   
    If (antalDage < 14 And beløbet < 3000) Then
        Range("E2:E162").Formula = "=B2*C2*1.6"
    ElseIf (antalDage = 14 And patientensAlder < 3000) Then
        Range("E2:E162").Formula = "=B2*C2*1.6"
    End If

End Sub

Du svare ikke på #8

A    antalDage
B    beløbet
C    infonr

Er det bare sidste række med indhold du skal bruge?

#10

jeg prøver igen.

Er i gang med at finde summen af alle betalinger for de seneste 14 dage.
(Det skal beregnes til sidst) 
Først har jeg beregnet forskellen mellem de to dage, og alle de værdier står i Worksheets("Hjem").Range("A1").End(xlDown).Row.

hvis antal dage er under eller lig med 14 og beløbet er > 4000 kr, så skal jeg gange beløbet med infonr. og 0,6.
hvis antal dage er under eller lig med  14 og beløbet er < 3000 kr, så skal jeg gange beløbet med infonr og 1,6

antalDage = Worksheets("Hjem").Range("A1").End(xlDown).Row
    beløbet = Worksheets("Hjem").Range("B1").End(xlDown).Row
    infonr =Worksheets("Hjem").Range("C1").End(xlDown).Row
 
Har værdier fra celle 2 til celle 168 i alle kolonner, nemlig A1, B1, C1, beregningen skal indsættes i fra E2 til E168.

"Først har jeg beregnet forskellen mellem de to dage, og alle de værdier står i Worksheets("Hjem").Range("A1").End(xlDown).Row."

Worksheets("Hjem").Range("A1").End(xlDown).Row.

Vil give dig den sidste række i kolonne A med indhold.

Hvis betingelsen er opfyldt... vil:
Range("E2:E162").Formula = "=B2*C2*0.6"

skrive: =B2*C2*0.6
I E2, E3, E4, E4...........E162 altså den samme formel i alle celler?

#13 nemlig.

#12 har ikke forstået det :(

Jeg har mange arks med nogle info, og nemlig dato og tidspunkter står i arket "Dato".

Jeg har beregnet forskelen mellem i dag og den sidste betalingsdato, og forskellen af de to dato har jeg indsat i et nyt ark, som hedder "Hjem"(A2:A168).

"Har værdier fra celle 2 til celle 168 i alle kolonner, nemlig A1, B1, C1"

Så vil:
    antalDage = Worksheets("Hjem").Range("A1").End(xlDown).Row være =168
    beløbet = Worksheets("Hjem").Range("B1").End(xlDown).Row være =168
    infonr =Worksheets("Hjem").Range("C1").End(xlDown).Row være =168

Undskyld... Det giver ingen menig at gentage den samme formel/resultat i 167 celler?

#16 nemlig.


Harallerede prøvet at skrive:
antalDage = Worksheets("Hjem").Range("A1:A168")
    beløbet = Worksheets("Hjem").Range("B1:B168")
    infonr =Worksheets("Hjem").Range("C1:168")

men den viser debug, lige fra første linje.

#17 hvis er der forskellige værdier, såsom forskellige beløb og infonr. samt betingelser,  så hvordan skal den samme formel køres fra celle 2 til celle 168.

har nogle datoer, hvor forskellen mellem idag og betalingsdag er over 160 dag, som betyder, at jeg skal ikke have det med.

Jeg tror nu, jeg forstår hvad du vil :-)

Så vi prøve at bygge en kode op.

# 20

Jeg har prøvet på mange forskellige måder, men uden held. Håber du kan hjælpe mig :)

Har du overskrifter i A, B og C?

# 22

ja.

nemlig i A1, B1, og C1

Så starter du med at løbe cellerne i A igennem.
Her en lille test på de 5 øverst celler:

Sub test()
    For Each c In Range("A2:A6").Cells
   
    MsgBox "Antal dage: " & c.Value
   
    Next c
End Sub

Prøv at kører den og se om det ser rigtigt ud.
Der kommer en besked 5 gange.

#24 skal jeg ikke gøre det kun i Worksheets("Hjem")?

#24 den virker, har prøvet i Worksheets("hjem")

når jeg kører makroen, så kommer en messagbox frem med den første værdi i celle A2, og når jeg trykker på ok, så kommer den næste værdi frem nemlig A3 osv. Det samme gentages 5 gange

Jo, kør koden når du står på fanen "Hjem"

#28 har allerede gjort. Den virker.

Fint, så tilføjer vi lidt mere:

Sub test()
p = 1
    For Each c In Range("A2:A6").Cells
   
        antalDage = c.Offset(0, 0)
        beløbet = c.Offset(0, 1)
        infonr = c.Offset(0, 2)
   
    MsgBox "Post" & p & ":  Antal: " & c.Value & "  Beløb: " & beløbet & "  Infonr: " & infonr
   
   
p = p + 1
   
    Next c
End Sub

Hvor får: patientensAlder sin værdi?

Er det i orden at skrive resultat i kolonne F i stedet for en formel?

#31 hvis vi kan skrive resultatet ind i kolonne F uden formel, bare med disse betingelser, så det er helt fint.

Og hvor får: patientensAlder sin værdi?

#31 koden kører

Sub test()

    For Each c In Range("A2:A6").Cells
   
        antalDage = c.Offset(0, 0)
        beløbet = c.Offset(0, 1)
        infonr = c.Offset(0, 2)
       
        If (antalDage < 14 And beløbet > 4000) Then
            c.Offset(0, 5) = beløbet * infonr * 0.6
        ElseIf (antalDage = 14 And patientensAlder > 7000) Then
            c.Offset(0, 5) = beløbet * infonr * 0.6
        End If
       
        If (antalDage < 14 And beløbet < 3000) Then
            c.Offset(0, 5) = beløbet * infonr * 1.6
        ElseIf (antalDage = 14 And patientensAlder < 3000) Then
            c.Offset(0, 5) = beløbet * infonr * 1.6
        End If
   
    Next c
End Sub

#33 har genbrugt min anden kode. Der skal står beløb i stedet for patientensAlder. Jeg retter også i min, måske derfor kommer debug frem

Jeg prøver

Er kolonne G ledig til test info?

#35 formlen kører, men har fået det samme resultat i alle celler, nemlig 0.

#37 yes.

Har værdier kun i kolonner A, B og C

Sub test()

    For Each c In Range("A2:A6").Cells
   
        antalDage = c.Offset(0, 0)
        beløbet = c.Offset(0, 1)
        infonr = c.Offset(0, 2)
       
        If (antalDage < 14 And beløbet > 4000) Then
            c.Offset(0, 5) = beløbet * infonr * 0.6
            c.Offset(0, 6) = "Antal dage er < 14 og Beløbet er > 4000"
        ElseIf (antalDage = 14 And beløbet > 7000) Then
            c.Offset(0, 5) = beløbet * infonr * 0.6
            c.Offset(0, 6) = "Antal dage er = 14 og Beløbet er > 7000"
        End If
       
        If (antalDage < 14 And beløbet < 3000) Then
            c.Offset(0, 5) = beløbet * infonr * 1.6
            c.Offset(0, 6) = "Antal dage er < 14 og Beløbet er < 3000"
        ElseIf (antalDage = 14 And beløbet < 3000) Then
            c.Offset(0, 5) = beløbet * infonr * 1.6
            c.Offset(0, 6) = "Antal dage er = 14 og Beløbet er < 4000"
        End If
   
    Next c
End Sub

#40 https://ibb.co/d58hk3G
kig på billedet. I stedet for den tekst, vil jeg helst have et tal.

Du skal vist kikke på kriterier og række følge!

15 dage og 4001 i beløb, springes over?

Tallet skrive stadig i kolonne F
Kolonne G skriver hvilket kriterier der beregnes med, kan slettes fra kode når den virker ;-)

#43 https://ibb.co/kB2mwxT

Her kan du se at antal dage og beløbet fra række 2 og 4 opfylder kriterier, så hvorfor kommer ikke noget tal frem?

Antal dage over 14 har kriterie? så de beregnes ikke.

Antal dage over 14 har ingen kriterie? så de beregnes ikke.

#46 det skal beregne det, idet hvis antal dag mellem (i dag og betalingsdag ) er
< eller = 14, og beløbet er >end 4000 eller <3000, så skal beløbet ganges med infonr og dermed  ganges med 0,6 eller 1,6.

Har prøvet at omskrive dine kriterier:

1. Antal dage under 14
1a. < 3000
1b. > 4000

Hvad med beløb mellem 3000 og 4000 ?

2.Antal dage =14
2a. < 3000
2b. > 7000

Hvad med beløb mellem 3000 og 7000 ?

Hvad med Antal dage over 14 ?

Kommer til at slutte for nu, skal tidligt op og sprøjte :-)

#48 ups, igen min tastfejl.


Der er kun to beløbsbegrænsninger: nemlig hvis beløbet ligger mellem 3000 eller 4000, så skal der skrives kun 0.



Jeg siger, tak for hjælpen. Jeg prøver at kigge på det igen og igen, for at se om det virker. Hvis det lykkes ikke, vil jeg muligvis forstyre dig igen. På forhånd tak

Hvad med: Antal dage over 14 ?

#51
hvis antal dage er over 14, så skal der indsættes 0 i de celler hvor antal dag er over 14.

Har allerede prøvet koden. Den viser ikke noget debug, men værdier kommer ikke frem. Da jeg har tastet informationen forkert, så vil jeg ændre det lidt og indsætte den her igen:


Sub test()

Dim c
Dim antalDage
Dim beløbet
Dim infonr
Dim p


    For Each c In Worksheets("Hjem").Range("A2:A6").Cells

        antalDage = c.Offset(0, 0)
        beløbet = c.Offset(0, 1)
        infonr = c.Offset(0, 2)
       
        If antalDage < 14 Then
            If beløbet < 3000 Then
                c.Offset(0, 5) = beløbet * infonr * 1.6
                c.Offset(0, 6) = "Antal dage er < 14 og Beløbet er < 3000"
            End If
            If beløbet > 4000 Then
                c.Offset(0, 5) = beløbet * infonr * 0.6
                c.Offset(0, 6) = "Antal dage er < 14 og Beløbet er > 4000"
            End If
        End If

        If antalDage = 14 Then
            If beløbet < 3000 Then
                c.Offset(0, 5) = beløbet * infonr * 1.6
                c.Offset(0, 6) = "Antal dage er = 14 og Beløbet er < 3000"
            End If
            If beløbet > 4000 Then
                c.Offset(0, 5) = beløbet * infonr * 0.6
                c.Offset(0, 6) = "Antal dage er = 14 og Beløbet er > 4000"
            End If
        End If
   
    Next c
   

     
End Sub

Hvis Antal dage < 14 og Beløb < 3000 ganges med 1,6
Hvis Antal dage < 14 og Beløb > 4000 ganges med 0,6
Hvis Antal dage = 14 og Beløb < 3000 ganges med 1,6
Hvis Antal dage = 14 og Beløb > 4000 ganges med 0,6

Så hvis beløbet er > 3000 og < 4000 sker der ikke en skid ;-)
Hvis Antal dage er > 14 sker der heller ikke en skid ;-)

Så der skal laves en tilpasning.
Kikke i morgen.

#53 nemlig.

Super. 1000 tak for hjælpen

#55 den viser debug ved infonr = c.Offset(0, 2)

#55 Hurra, den kører nu.

1000 tak.

kan jeg ikke skrive celle nr.  her i stedet for  fx c.Offset(0, 0). Dermed vil jeg meget derne at beregninger skal indsættes nemlig i Kolonne E2:E168
Da jeg kommer til at indsætte nogle ekstra informationer i kolonne D og H

Fik lige kikket på:
If antalDage = 14 Then

Gør den ikke det samme som:
If antalDage < 14 Then, hvis den ændres til < 15 ?

c.Offset(0, 5) rettet til c.Offset(0, 4) så skriver den i kolonne E.

Tilføjet GoTo Næste, så kører koden hurtigere.

#58 Super. Den kører nu. Endnu engang 1000 tak