Haku sarakkeesta

Sehän olikin yksinkertainen juttu, kiitos!

Onkohan tätä mahdollista kehittää niin, että laskee yhteen luvut B sarakkeessa niiltä riveiltä missä on A sarakkeessa L?
Vai miten tämän saisi järjestymään?

Epätieto kirjoitti:

Onkohan tätä mahdollista kehittää niin, että laskee yhteen luvut B sarakkeessa niiltä riveiltä missä on A sarakkeessa L?
Vai miten tämän saisi järjestymään?

Oletetaan että kirjaimet A5:A50 ja luvut B5:B50
ja haettava kirjain solussa C1
=SUMMA.JOS($A$5:$A$50;C1;$B$5:$B$50)

jos käytät sarakeotsikoita voit käyttää myös
=TSUMMA(A1:B50;2;C1:C2) ,jossa C1 on A sarakkeen otsikko(A1) ja C2 haettava kirjain.

VBA:lla
Option Explicit
Sub KirjaintenSumma()

Dim Summa As String
Summa = Laske("L", [C1])
MsgBox UCase([C1]) & " kirjainten summa: " & Summa
End Sub

Function Laske(Kirjain As String, Solu As Range) As Integer
Dim Alue As Range
Dim Alue1 As Range
Dim Uniikit As Variant
Range("A:B").AutoFilter Field:=1, Criteria1:=Solu

Set Alue = ActiveSheet.AutoFilter.Range.Columns(1).Cells
Set Alue = Alue.Offset(1, 1).Resize(Alue.Rows.Count - 1)
On Error Resume Next
Set Alue1 = Alue.SpecialCells(xlVisible)
If Alue1 Is Nothing Then
'MsgBox "Ei näytettäviä tietoja"
Selection.AutoFilter
Exit Function
End If
On Error GoTo 0
Laske = Application.WorksheetFunction.Sum(Alue1)
Selection.AutoFilter
End Function

@kunde

Kunde kirjoitti:

Oletetaan että kirjaimet A5:A50 ja luvut B5:B50
ja haettava kirjain solussa C1
=SUMMA.JOS($A$5:$A$50;C1;$B$5:$B$50)

jos käytät sarakeotsikoita voit käyttää myös
=TSUMMA(A1:B50;2;C1:C2) ,jossa C1 on A sarakkeen otsikko(A1) ja C2 haettava kirjain.

VBA:lla
Option Explicit
Sub KirjaintenSumma()

Dim Summa As String
Summa = Laske("L", [C1])
MsgBox UCase([C1]) & " kirjainten summa: " & Summa
End Sub

Function Laske(Kirjain As String, Solu As Range) As Integer
Dim Alue As Range
Dim Alue1 As Range
Dim Uniikit As Variant
Range("A:B").AutoFilter Field:=1, Criteria1:=Solu

Set Alue = ActiveSheet.AutoFilter.Range.Columns(1).Cells
Set Alue = Alue.Offset(1, 1).Resize(Alue.Rows.Count - 1)
On Error Resume Next
Set Alue1 = Alue.SpecialCells(xlVisible)
If Alue1 Is Nothing Then
'MsgBox "Ei näytettäviä tietoja"
Selection.AutoFilter
Exit Function
End If
On Error GoTo 0
Laske = Application.WorksheetFunction.Sum(Alue1)
Selection.AutoFilter
End Function

@kunde

Jostain syystä en saanut tota COUNTIF funktiota toimimaan, mutta DSUM funktiolla onnistui. Kiitos paljon!
(Yritän opiskella VBA:a myöhemmin)