kornleos

jerryeagle respondió: En un modulo pega esto: Public Function SumaC(ByVal Valor As String) As Double Dim C() As String, i As Integer C = Split(Valor, ",") For i = 0 To UBound(C) SumaC = SumaC + C(i) Next End Function Sub SumaColumna() Dim r, u As Integer u = Range("A" &...