AY`A AİT BİLGİLER OTOMATİK GELSİN

[Ongun]

AY`A AÝT BÝLGÝLER OTOMATÝK GELSÝN

Herkese selamlar, ekli dosyada belirli oralıktaki bilgiler buton`a basınca otamatik olarak ilgili bölüme aktarılsın. If komutuyla yapmaya çalıştım ama çok uzun olacak, başka şekilde nasıl yapabiliriz. Saygılarımla

 

[Kemal Demir]

umarım işinize yarar

 

[Ongun]

Sayın Rakkas, elinize sağlık tam istediğim gibi, çok teşekkür ederim. Saygılarımla,

 

[Ongun]

Herkese Selamlar, arkadaşlar sorunumu çözdüm, ancak başka bir husus çıktı bende yeni bir başlık açmak istemedim. Sorum şöyle, D, E ve F sütünlarındaki ara satırlarda toplam formülü var, benim istediğim bu toplam formüllerinin A, B ve sütünlarının ilgili satırlarına AKTARILMAMASI. Birden fazla for-next döngüsü kurunca oluyor ama daha kısa nasıl yapabiliriz.

Yardımlarınızı bekliyorum.

Ã?rnek dosya ektedir. Saygılarımla

 

[Ongun]

Private Sub ComboBox1_Change()
For c = 2 To 21
If ComboBox1.Value = Cells(1, 4) Then Cells(c, 1) = Cells(c, 4)
If ComboBox1.Value = Cells(1, 5) Then Cells(c, 2) = Cells(c, 5)
If ComboBox1.Value = Cells(1, 6) Then Cells(c, 3) = Cells(c, 6)
Next
End Sub

Yukarıdaki kod 2 ile 21 arasındaki satırları aktarıyor. Benim istediğim bu satırlardan 9 ve 16 satırların AKTARILMAMASI.

Lütfen bana yardım edermisiniz. :hey:

 

[gamsizganii]

For c = 2 To 21
yazan yerde 2 yerine 9, 21 yerine de 16 yaz olsun bitsin

 

[Ongun]

For c = 2 To 21
yazan yerde 2 yerine 9, 21 yerine de 16 yaz olsun bitsin

ilginiz için teşekkür ederim. ama ben 9 ile 16 arasını alsın istemiyorum.

Benim istediğim 9 ve 16 ıncı satırların aktarılMAMAsı.

Saygılarımla