sum.hvis i VBA

Prøve at indspille en makro...

Hej supertekst, jeg havde selvfølgelig håbet på noget mere håndgribeligt, især fra din side, har fulgt dine tidligere svar, og mener nok du er manden der kan hjælpe.
Hvordan forklarer jeg i en makro, at den kun skal summe på JA ?

Hej hartvig 12 - tak for din tilkendegivelse - skal forsøge ...

Sub SumHvisJa()
    Cells(4, 2).Select
    ActiveCell.FormulaR1C1 = "=SUMIF(R[-3]C[-1]:R[-1]C[-1],""JA"",R[-3]C:R[-1]C)"
End Sub

men det kan også gøres på anden vis - sig til, hvis dette ønskes...

Alternativt:
Sub SumHvisJa()
Dim total
    total = 0
   
    For ræk = 1 To 65000
        If Cells(ræk, 1) <> "" Then
            If Cells(ræk, 1) = "JA" Then
                total = total + Cells(ræk, 2)
            End If
        Else
            Cells(ræk, 2) = total
            Exit For
        End If
    Next ræk
End Sub

Hej Supertekst,

Dit første forsøg fik jeg også ved at gøre som du sagde, optage en makro, men jeg skal bruge en variabel, så dit alternative er langt tættere på det jeg ønsker at arbejde hen imod. Jeg har måske ikke været eksplicit nok, men jeg skal til slut bruge nogle variabler (ved ikke hvor mange), det afgøres af hvad der står i kolonne A. (ikke boolean).

Alternativ svaret virker ikke helt endnu, men du er nok tæt på løsningen, jeg har erklæret ræk som en variabel og indsat range("E4").value = total.
Det er afgørende at jeg kan kalde variablen til en given celle.

Vil det sige, at kolonne A skal gennemløbes og der skal ske en "opsamling" af de forskellige værdier heri - f.eks.i et array?

Jeps, i sidste ende skal jeg bruge en kode der opsamler nogle værdier fra kolonne B baseret på "grupper" som er i kolonne A. Værdierne skal sættes ind i et andet ark i samme projektmappe. Det skal bruges sammen med dataudtræk fra et erp-system, så jeg kender ikke altid antallet af grupper i kolonne A.

Prøv denne version:

Rem Koden anbringes i det ønskede ark
Rem =================================
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 1 And Target.Value <> "" Then    'Hvis HØJREKLIK er i kolonne A (1) & celle udfyldt
        SumHvis Target.Value                            'Anvend indhold som argument for optælling
       
    End If
    Cancel = True
End Sub
Private Sub SumHvis(værdi)
Dim total
    total = 0
   
    For ræk = 1 To 65000
        If Cells(ræk, 1) <> "" Then
            If Cells(ræk, 1) = værdi Then
                total = total + Cells(ræk, 2)
            End If
        Else
            Cells(ræk, 2) = total
            Exit For
        End If
    Next ræk
End Sub

Det funker ikke rigtig !

Den sidste kode er skrevet før jeg så dit næstsidste indlæg - er ved at omarbejde koden - vender tilbage senere - men beskriv gerne baggrunden for dit sidste indlæg.

Public Sub JaTotal1()
Har fundet en metode som virker, men takker for Superteksts hårde indsats :-)


Dim dTotal As Double
Dim i As Long
With Range("a1:b3")
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
    If .Cells(i, 1) = "JA" Then dTotal = dTotal + .Cells(i, 2)
Next i
End With
Range("e4").Value = dTotal
End Sub

Selv tak - mere?

Det nemmeste er vel blot at bruge sum.hvis fra vba:

Dim rngData As Range, strWanted As String

Set rngData = ThisWorkbook.Worksheets("something").UsedRange.Columns(1)
strWanted = "JA"

Resultat = Application.WorksheetFunction.CountIf(rngData, strWanted)

- bare lige for at vise et nemt alternativ - noget med dybe tallerkner... :-)

- ovenstående tæller antallet af "JA" 'er i 1. kolonne i det brugte data-område og lagrer resultatet i variablen Resultat (som jeg glemte at deklarere øverst, som enten Integer eller Long)