Formülleri -Döngülere cevirmek

[Yakut]

slm

Y5=AB5/AA$1 -----Y200

AC5=C5*12 ----AC200

AE5=AC5-AD5 ----AE200

AH5= AC5-120 ----AH5200

A15=80*D5-AH5 ----A200

Aj5=A15/4 ----Aj200

AL5=Wenn(AJ5>0;"A";"B") ----AL200

bunlarin hepsi asagi dogru 200 satir e kadar kapsacak sekilde. döngü seklinde nasil yapabiliriz.


saygilar

 

[janveljan]

Biraz anlaşılması güç olmuş, formülleri aşağıya doğru doldurmak mı istiyorsunuz, bunu kod ile mi yapmak istiyorsunuz, yoksa formüllerin A5:A200 ü kapsamasını mı istiyorsunuz. Tabi örnek dosya koyarsanız daha kolay olur anlatması da anlaması da.

 

[Yakut]

Biraz anlaşılması güç olmuş, formülleri aşağıya doğru doldurmak mı istiyorsunuz, bunu kod ile mi yapmak istiyorsunuz, yoksa formüllerin A5:A200 ü kapsamasını mı istiyorsunuz. Tabi örnek dosya koyarsanız daha kolay olur anlatması da anlaması da.

formülleri asagiya dogru doldurmak istiyorum, bunlarin hepsine kodla yapilabilirmi .....

formüllerden kod haline gelmesine istiyorum.. . döngüler seklinde asagi dogru ......


saygilar

 

[bulentkars]

say = WorksheetFunction.CountA(Range("A:A"))

formullerı buraya yazınız

Range("C2:E" & say).FillDown ' formul yazdıgınız sutun ısımını yazınız

 

[Yakut]

yaziyla sizlere anlatmak istedigimi anlatamadim,

bir örnek ekliyorum.


saygilar

 

[dEdE]

yaziyla sizlere anlatmak istedigimi anlatamadim,
bir örnek ekliyorum. saygilar

Sayın Yakut,

Gerçekten de yazıyla anlatamadınız. Örneği daha önce ekleseydiniz, yanıtı daha kısa sürede alırdınız ve forumumuzuda gereksiz yazışmalarla doldurmazdık.
İlk mesajınızda A15 yazmışsınız ama örneğinizde AI5 olarak göstermişsiniz. Bu durumda bizim sizin istediğinizi bilmemiz mümkün değil.
Herneyse olan oldu.
Şimdi gelelim sorunuza;
Hücreleri formülle doldurmak dosya boyutunun büyümesine neden olur. Bunun yerine yine aynı sonucu veren makro çözümü, hem kod olarak daha kısa hem de dosya boyutu olarak daha az olur.
Ekli dosyada her iki çözüm de vardır. Gülegüle kullanın.

Saygılar.

 

[Yakut]

sayin dede ,

bastan sona haklisiniz ,burada mesaj kalabaligi yapmak istemedim. VBA Edebiyatini pek türkcesini bilmedigimizden .özür dilerim , ayrica sizleri tebrik ederim. cok seyler ögreniyorum.

saygilar

 

[dEdE]

Rica ederim. Bilgi paylaştıkça çoğalır. Yardımcı olabildimse mutlu olurum.

 

[Yakut]

slm

bu örnekte yapmak istedigim, A sutuna rakam yazildiginda b sutunda gösterilmesin.
bunu bir türlü -- do until loop --ile beceremedim. acaba baska bir yöntemi varmi ...



saygilar

 

[halit3]

bunumu yapmak istiyorsun

Sub Wenn()
Dim i As Integer
For i = 5 To 100
Range("B" & i).Value = Range("a" & i).Value
Next
End Sub

 

[Yakut]

Sub Wenn()
Dim i As Integer
For i = 5 To 100

Range("B" & i).Value = IIf(Range("A" & i).Value > 0, "A", "B ")
Next
End Sub


bu kod calisiyor. a sutunu yazilsin yazilmasin otomatikmen b 100 e kadar yaziyor. bunu
diyelim a sutuna rakam yazdigimda b de gösterilsin.

 

[ozgretmen]

a sutunu yazilsin yazilmasin otomatikmen b 100 e kadar yaziyor. bunu
diyelim a sutuna rakam yazdigimda b de gösterilsin.

Ne demek istediğinizi anlayamadım.Açıklar mısınız ?

 

[Yakut]

insallah bu örnekte aciklayabilmisimdir.

 

[ozgretmen]

Ne yalan söyliyim...Yine bir şey anlamadım.