aylara göre toplam almak

[ahm11]

ekteki dosyada bulunan aylara göre toplam almak istiyorum.

 

[ahm11]

sanırım dosyayı gönderemedim.

 

[danersin]

Bunlari bir deneyin

[vb:1:ebaac79d84]Private Sub CommandButton1_Click()
i = 2
Do While Sheets(1).Cells(i, 1) <> ""
Sut = (Month(Sheets(1).Cells(i, 2)) - 1) * 2 + 2
Sat = Application.WorksheetFunction.Match(Sheets(1).Cells(i, 3).Text, Sheets(3).Range("a1:a500"), 1)

Sheets(3).Cells(Sat, Sut) = Sheets(3).Cells(Sat, Sut) + Sheets(1).Cells(i, 4)
Sheets(3).Cells(Sat, Sut + 1) = Sheets(3).Cells(Sat, Sut + 1) + Sheets(1).Cells(i, 5)
i = i + 1
Loop
End Sub
[/vb:1:ebaac79d84]

 

[ahm11]

sayın danersin,
öncelikle vermiş olduğunuz bu kodlar için teşekkür ederim.gayet güzel çalışıyor.yalnız benim kodlarım A,B,C,D,E gibi harflerden oluşurken problemsiz çalışırken.kodlara 1,2,3 gibi rakamlar eklediğimde "worksheetfunction sınıfının match özelliği alınamıyor" diye hata verdi.bende ".text" yerine ".value" yazdığımda veya sildiğimde hata vermeden çalıştı. worksheetfunction`a ait bildiğim bir kaç özellik vardı.match özelliğini bilmiyordum,sayenizde gördüm.ancak neye yaradığını tam olarak çözemedim.sanırım bunun gibi daha birçok özellik vardır.bunları nereden bulup öğrenebiliriz.

 

[danersin]

worksheetfunction excel!in içinde kullandığımız fonksiyonları vba kodları vasıtasıyla kullanmamızdan öte birşey değil. Excel fonksiyonların hepsi değil ama çoğu VBA ilede aynı şekilde kullanılabilmekte. (Tabi ingilizceleri. ) Dolayısı ile yapmanız gereken bildiğimiz Excel fonksiyonlarını öğrenmek. Zaten genel olarak tavsiyem VBA'da ilerlemeye başlamadan önce en azından temel-sık kullanılan 40-50 fonksiyonu iyice kavramak.
Aşağıda ki fonksiyonları help'ten kopyaladım. Bunlar excel'in worksheetfunction ile birlikte kullanılabilen fonksiyonları. Match- Kaçıncı,, aradığımız bir değerin, bir dizi içinde kaçıncı sırada olduğunu veriyor.
İlk etapta Tarih ve Saat, Arama ve Başvuru, Metin ve Mantıksal Fonksiyonların hepsi öğrenilmeli diye düşünüyorum.

A
Acos
Acosh
And
Asin
Asinh
Atan2
Atanh
AveDev
Average
B
BetaDist
BetaInv
BinomDist
C
Ceiling
ChiDist
ChiInv
ChiTest
Choose
Clean
Combin
Confidence
Correl
Cosh
Count
CountA
CountBlank
CountIf
Covar
CritBinom
D
DAverage
Days360
Db
DCount
DCountA
Ddb
Degrees
DevSq
DGet
DMax
DMin
Dollar
DProduct
DStDev
DStDevP
DSum
DVar
DVarP
E
Even
ExponDist
F
Fact
FDist
FInv
Find
FindB
Fisher
FisherInv
Fixed
Floor
Forecast
Frequency
FTest
Fv
G
GammaDist
GammaInv
GammaLn
GeoMean
Growth
H
HarMean
HLookup
HypGeomDist
I
Index
Intercept
Ipmt
Irr
IsErr
IsError
IsLogical
IsNA
IsNonText
IsNumber
Ispmt
IsText
J
K
Kurt
L
Large
LinEst
Ln
Log
Log10
LogEst
LogInv
LogNormDist
Lookup
M
Match
Max
MDeterm
Median
MInverse
MIrr
Min
MMult
Mode
N
NegBinomDist
NormDist
NormInv
NormSDist
NormSInv
NPer
Npv
O
Odd
Or
P
Pearson
Percentile
PercentRank
Permut
Phonetic
Pi
Pmt
Poisson
Power
Ppmt
Prob
Product
Proper
Pv
Q
Quartile
R
Radians
Rank
Rate
Replace
ReplaceB
Rept
Roman
Round
RoundDown
RoundUp
RSq
RTD
S
Search
SearchB
Sinh
Skew
Sln
Slope
Small
Standardize
StDev
StDevP
StEyx
Substitute
Subtotal
Sum
SumIf
SumProduct
SumSq
SumX2MY2
SumX2PY2
SumXMY2
Syd
T
Tanh
TDist
Text
TInv
Transpose
Trend
Trim
TrimMean
TTest
U
USDollar
V
Var
VarP
Vdb
VLookup
W
Weekday
Weibull
X
Y
Z
ZTest

 

[ahm11]

sayın danersin,
haklısınız;sadece bir kaç fonksiyon kullanıyorum bu da yeterli olmuyor tabi.birde ingilizce bilmeyince excelde kullandığım fonksiyonları VBA da kullanmayı düşünemiyorum.açıklamaların için teşekkür ederim.