çıkan sonuca göre yeteri kadar hücreye değer yazma

[dmzkn]

aslında ben bu konuyu açmıştım daha önce...necdet bey ve mehmet beyin önerileri işimide kısmen gördü ama sonra baktımki tam olarak olmamış istediğim...ben mesleğim gereği program kodu yazmayı bilioyrum naci zane...müh.lerin kullandığı fotran dilinde istediğim şey şu şekilde oluyo..bu kodu excelde bana gösterebileceğinize eminim..

fotran kodu kabaca şöle

dim [x].................... x için boyut aç
read x......................x i dış ortamdan al
do y=1,x,1...............1 den başlayarak x e kadar 1 er 1 er sayacı çalıştır
write diyagonal...... sayaçtan atanacak değerler alt alta diyagonal1 ,
diyagonal2......diyagonalx şeklinde yazılacak..
işte bu noktada ben bu yazıları b sütununa
yazdırmak istiyorum...
continue
end

bu kodu excelde fonksiyonlarla veya makroyala nasıl yaparım...

 

[zafer]

Merhaba

Forumdaki arkadaşalar Foltran bilemiyebilirler.(ben Dahil) onun için yazdığınız kodları bilmiyorum(uz) diyebilirim

Siz ne yapmak istediğinizi açıklarsanız sorunuza cavap alabilirsiniz.

 

[dmzkn]

zafer bey haklsınız önceden konu aynı konuyu açtığım için böle birden anlaşılmadı isteğim..

önceki mesajım şu şekilde idi..
öncelikle merhaba..benim sorun şöle.,,

örneğin bir hücrede formülle bir değer hesaplatıyorum..bu çıkan sonuca göre herhangi bir sütunda(örneğin A sütununda) çıkan değere göre satır satır değer yazdırmak istiyorum...

örneğin: a1 hücresinin sonucu diyelim 4 çıktı..çıkan bu sonuçtan sonra otomatik olarak b sütununa ;

b1= diyagonal1
b2= diyagonal2
b3= diyagonal3
b4= diyagonal4

olarak metin halinde yazdırmak istiyorum...eğer formül sonucu yani a1 hücresindeki değer 100 çıkarsa..verdiğim örnek gibi b sütununa 100 tane değer gelicek...

yardım ederseniz çok sevinirim...örnek dosya yollayamıom çünkü hiç bir formül yazamadım bununla ilgili..

şimdiden alakasınıza teşekkürler....
saygılar,,sevgiler

...sonra bu mesajıma cevap aldım ama tam olmadı....yukarıdaki fotran kodlarını yazdım açıklamasınıda yazdımki kod bilen arkadaşlar belki daha rahat cevaplarla die...

 

[sbayyigit]

OKUDUÐUMU ANLADIYSAM Ã?RNEK DOÐRU SONUÇ VERİYOR.

 

[dmzkn]

sn yiğit gerçetem tam olmuş...ama gönderdiğiniz dosyada nasıl yapıldığını anlamadım...kodlar gizli galiba...ben kendim şöle bi kod yazdım ve oda sizinkigibi çalışıyo

Sub y()
Dim y As Long
x = Range("a1")
For y = 1 To x
Sheets("Sayfa1").Cells(y, 2) = "diyagonal" & y
Next y
End Sub

 

[sbayyigit]

hayır gizli değil-açık ama kodları görebilmen için
araçlar/makro/visual basic düzenleyeicisine girmen gerekiyor burada sayfa1 in kodlarına yazdım. Burayı açarsan kodların

Private Sub Worksheet_Calculate()
Range("B1:B65000") = ""
Dim i As Integer
For i = 1 To [A1]
Cells(i, 2).Value = "Diyagonal " & i
Next i
End Sub
şeklinde olduğunu göreceksin. işine yaradığına sevindim.