Soru Bir sütundakileri teker teker çarpıp toplama

[TB2DLH]

Herkese iyi forumlar,
Ekte ki dosya da sadece çarpılacak ve toplanacak rakamlar yazılı, bu rakamları teker teker çarpıp toplamaktansa kolay bir formülü var ise öğrenmek istiyorum.

Trendyol'a ürün ekleyeceğim bu fiyatları teker teker 1,15 ile çarpacağım çıkan sonuca 200 TL kargo parası ekleyeceğim.

Teker teker yaparım yapmasına ama çok uğraştırıcı olacak eğer varsa kolay bir formülü yardımcı olursanız çok sevinirim.



Dosyayı ekleyemedim aşağıya bırakıyorum rakamları;

FİYAT	KOMİSYON VE KARGO DAHİL FİYAT
245
400
285
215
145
290
390
170
255
265
275
210
565
165
255
275
155
165
185
145
165
275
185
165
235
235
330
175
295
245
375
285
225
245
390
210
235
165
175
335
125
245
345
245
215
245
298
425
430
165
165
235
320
175
445
475
440
280
375
330
295
375
300
330
275
275
290
278
550
320
460
200
390
340
210
280
195
225
280
420
395
195
325
360
150
175
125
220
360
285
235
145
220
285
190
175
135
245
185
178
165
145
185
175
225
195
205
163
185
175
305
330
155
225
225
235
500
405
325
585
360
195
185
145
145
175
195
165
185
295
185
165
195
220
225
145
195
235
145
365
195
230
165
165
195
185
155
175
165
145
320
175
190
205
175
155
155
145
235
365
375
165
180
175
195
152
142
155
295
312
140
216
207
195
445
400
273
574
321
162
140
177
294
185
191
121
180
202
214
180
150
206
250
157
190
123
358
175
213
140
128
185
172
130
155
142
137
350
175
150
163
130
155
157
136
160
123
106
121
162
200
217
231
330
350
160
355
150

 

[Korhan Ayhan]

Merhaba,

A2 hücresi için aşağıdaki formülü B2 hücresine uygulayıp deneyebilirsiniz.

=A2*1,15+200

 

[TB2DLH]

Merhaba,

A2 hücresi için aşağıdaki formülü B2 hücresine uygulayıp deneyebilirsiniz.

=A2*1,15+200

Çok teşekkür ederim.

 

[muhasebeciyiz]

Sub HesaplaVeEkle()
Dim i As Integer
Dim sonSatir As Integer

sonSatir = Cells(Rows.Count, 1).End(xlUp).Row
For i = 3 To sonSatir
Cells(i, 2).Value = Cells(i, 1).Value * 1.15 + 200
Next i
End Sub

Verilerinizin A3 sutununda olduğunu varsayarsak makrolu çözümde isterseniz bunu deneyiniz.