Yalnız Mesajı Göster
Eski 08-11-2017, 17:04  
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 9,229
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Merhaba.

Bence sorunuzu bir örnek belge üzerinden sormanızda yarar var.

Örnek belgenin;
-- gerçek belgeyle aynı yapıda olmasına (sayfa/satır/sütun yapısı, veri başlangıç satırı gibi),
-- gerçek verileri temsil edebilecek nitelikte veriler içermesine (tarih/sayı/metin gibi veri türü önemli)
-- farklı durumlar/seçenekler varsa, bunların tümünü içermesine,
-- olması gereken sonuçları, olması gereken konumlarına elle yazarak, bunları nasıl bulduğunuzu kısaca açıklamaya,
-- varsa belgede kullanılan userform ve makroların dosya içerisinde olmasına
özen gösteriniz.

Örnek belge yükleme yöntemine ilişkin açıklama cevabımın altındaki İMZA bölümünde var.

Anladığım kadarıyla i değişkenine belli aralıkta değerler vererek işlem sonucunu elde etmek istiyorsunuz.
Aşağıdaki gibi düşünülebilir.
-- Kod'daki mavi satırlardan birini kullanarak, i değişkenine 1'den 10'a kadar sırayla verilecek değerlere göre bulunan işlem sonucunu ekranda görüntüleyebilir,
-- Kod'daki kırmızı satırlardan birini kullanarak, i değişkenine 1'den 10'a kadar sırayla verilecek değerlere göre bulunan işlem sonucunu A sütununda listeleyebilirsiniz.
.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub FONKSIYON()
m = 5
For i = 1 To 10
    MsgBox (i - 1 + m) * 0.6
    MsgBox (i - 1 + m) - (i - 1 + m) * 0.4
    Cells(Cells(Rows.Count, "A").End(3).Row + 1, "A") = (i - 1 + m) * 0.6
    Cells(Cells(Rows.Count, "A").End(3).Row + 1, "A") = (i - 1 + m) - (i - 1 + m) * 0.4
Next
End Sub
__________________
.
☾✭ İnadına TÜRKÇE ✭☽

-- Sorunuzu, gerçek belgenizle aynı yapıda ve olması gereken sonuçların elle yazıldığı örnek belge ile destekleyiniz.
-- ALTIN ÜYELİK öneriyorum. / FORUM KURALLARInı mutlaka okuyunuz.
-- ALTIN ÜYE olmayanlar, örnek belgeyi dosya.tc, dosya.co gibi bir siteye yükleyip, belgeye erişim adresini verebilir.
-- Özel mesaj ile soru sormayınız. / Geri bildirimde bulunulmayan cevaplarımı siliyorum.
Ömer BARAN Çevrimdışı   Alıntı Yaparak Cevapla