Soru Range fonk.

[ruyaaaa]

Arkadaşlar üstünden zaman geçince biraz unuttum. C2 den c1215 de veriler var öncelikle bu C2'den C1215'e kadar verilerim var. Yani işte for ile dolaşacağım if(veri1) ise karşısına F sütununa şunu yaz gibi. Bu verilere göre F Sütunu ilgili şarta göre dolduracağım. C 2 ve 1215 arasında nasıl dolaşacağım? For içinde Range(....).Rows.End benzeri bir şey yapıyorduk heralde. Yardım ederseniz sevinirim teşekkürler ?

 

[Seyit Tiken]

Bu şekilde kendinize uyarlayıp deneyinz.

For h = 2 To 1215
If Cells(h, "c") = "Rüya" Then
Cells(h, "f") = "Test"
End If
Next

 

[ruyaaaa]

Teşekkür ederim bir sorum daha olacaktı.

müsteriCb combobox ından girdiğim değere göre mesela Keskinoglu A.S. seçtim. Sales sayfası aktive etcek ve bir önceki sütunundaki değerleri

toplayacağım. Sonra toplamı Filter sayfasında b11 e yazdrıcağım . Aşağıdaki gibi yaptım fakat hata alıyorum. Yardım etmeniz mümkün mü?



Dim toplam As Integer
toplam = 0
For h = 2 To 1215
If müsteriCb.Value = "Keskinoglu A.S." Then

Sheets("Sales").Select
toplam = toplam + Cells(h, "f").Offset(0, -1)

End If
Next
Sheets("Filter").Select
Range("b11").Value = toplam

 

[ruyaaaa]

Teşekkür ederim bir sorum daha olacaktı.

müsteriCb combobox ından girdiğim değere göre mesela Keskinoglu A.S. seçtim. Sales sayfası aktive etcek ve bir önceki sütunundaki değerleri

toplayacağım. Sonra toplamı Filter sayfasında b11 e yazdrıcağım . Aşağıdaki gibi yaptım fakat hata alıyorum. Yardım etmeniz mümkün mü?



Dim toplam As Integer
toplam = 0
For h = 2 To 1215
If müsteriCb.Value = "Keskinoglu A.S." Then

Sheets("Sales").Select
toplam = toplam + Cells(h, "f").Offset(0, -1)

End If
Next
Sheets("Filter").Select
Range("b11").Value = toplam

Çözdüm. Overflow hatası veriyordu Long tanımladım değişkenleri