Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Excel'e Yeni Başlayanlar
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Excel'e Yeni Başlayanlar Excel kullanmaya yeni başladıysanız sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 31-01-2018, 22:09   #1
Golden-M
 
Giriş: 10/04/2006
Şehir: İstanbul
Mesaj: 14
Varsayılan Yatay ve düşey tarih aralığında değer girmek

Arkadaşlar Merhaba

Ekteki sayfada belirttiğim tarih aralığında değerleri yazmak istiyorum.
Eklenmiş Dosyalar
Dosya Türü: xlsx Nakit Akış.xlsx (11.1 KB, 9 Görüntülenme)
Golden-M Çevrimdışı   Alıntı Yaparak Cevapla
Eski 31-01-2018, 23:14   #2
muygun
Özel Üye
 
muygun kullanıcısının avatarı
 
Giriş: 06/07/2004
Mesaj: 7,146
Excel Vers. ve Dili:
Excel-2003 Türkçe
Varsayılan

Merhaba;
Makro ile çözümü deneyin.
İyi çalışmalar.
Eklenmiş Dosyalar
Dosya Türü: zip Golden-M-Nakit Akış.zip (11.8 KB, 5 Görüntülenme)
__________________
Excel-2003 - Türkçe
muygun Çevrimdışı   Alıntı Yaparak Cevapla
Eski 31-01-2018, 23:41   #3
Golden-M
 
Giriş: 10/04/2006
Şehir: İstanbul
Mesaj: 14
Varsayılan

Alıntı:
muygun tarafından gönderildi Mesajı Görüntüle
Merhaba;
Makro ile çözümü deneyin.
İyi çalışmalar.
Çok teşekkür ederim. işte makroyu asıl dosyama alıp ekleyemedim.
makro olayını nedense bir türlü beceremedim.
Golden-M Çevrimdışı   Alıntı Yaparak Cevapla
Eski 31-01-2018, 23:50   #4
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 10,433
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Merhaba.

Sayın muygun'un çözümünü incelemedim. Mutlaka sorunsuz çözüm önermiştir.

Ben de formül ile çözüm önerisinde bulunmak istedim.
(İşlemde D/A yerine D/(C-B+1) sonucunun hücrelere yazılacağını varsaydım,
çünkü gün farkları ile A sütunundaki değerler arasında çelişkiler mevcut
)

-- Koşula uymayan hücrelere 0 yazılmasında sorun yoksa birinci formülü,
-- Koşula uymayan hücreler BOŞ kaysın istiyorsanız ikinci formülü

E5 hücresine uygulayın ve bu hücreyi sağa ve aşağı doğru kopyalayın.

NOT: Üçüncü formülü, E5:AM28 arası seçili durumda iken koşullu biçimlendirme->formül kullan seçeneğinde kullanabilirsiniz.
.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
=(($B5<=E$4)*($C5>=E$4))*($D5/($C5-$B5+1))
=EĞER(($B5<=E$4)*($C5>=E$4)=1;$D5/($C5-$B5+1);"")

=($B5<=E$4)*($C5>=E$4)
__________________
.
☾✭ İ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, dosyaupload.com 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
Eski 31-01-2018, 23:55   #5
muygun
Özel Üye
 
muygun kullanıcısının avatarı
 
Giriş: 06/07/2004
Mesaj: 7,146
Excel Vers. ve Dili:
Excel-2003 Türkçe
Varsayılan

Alıntı:
Golden-M tarafından gönderildi Mesajı Görüntüle
Çok teşekkür ederim. işte makroyu asıl dosyama alıp ekleyemedim.
makro olayını nedense bir türlü beceremedim.
Sayfanın kod bölümüne;

Sub analiz()
Application.ScreenUpdating = False
On Error Resume Next
Set s1 = ThisWorkbook.Worksheets("Sayfa1")

Sheets("Sayfa1").Range("e5:ıv65536").ClearContents '65536 satır sayısını versiyonunuza göre değiştirin.
For i = 5 To s1.Range("A65536").End(xlUp).Row '65536 satır sayısını versiyonunuza göre değiştirin.
For k = 5 To 256 '256 sütun sayısını versiyonunuza göre değiştirin.

If s1.Cells(i, "a") >= 1 Then
If s1.Cells(4, k) <> "" And s1.Cells(4, k).Value >= s1.Cells(i, "b").Value And s1.Cells(4, k).Value <= s1.Cells(i, "c").Value Then
s1.Cells(i, k) = s1.Cells(i, "d") / s1.Cells(i, "a")
End If
End If

If s1.Cells(i, "a") = 0 Then
If s1.Cells(4, k) <> "" And s1.Cells(4, k).Value = s1.Cells(i, "b").Value Then
s1.Cells(i, k) = s1.Cells(i, "d")
End If
End If

Next k
Next i
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub

Kodlarını yerleştirin.
(bunun için sayfada iken ALT+F11 tuşlarına birlikte basarak geçiş yapabilirsiniz)

Yada Ömer Bey'in çözüm önerisini uygulayın.
(örneğinizde 2018 tarihini görünce 500 den fazla sütun ve belirsiz satır miktarı formülle çözümde dosyanın ağırlaşabileceği düşüncesiyle makroyu tercih ettim.)
__________________
Excel-2003 - Türkçe

Bu mesaj en son " 01-02-2018 " tarihinde saat 00:00 itibariyle muygun tarafından düzenlenmiştir....
muygun Çevrimdışı   Alıntı Yaparak Cevapla
Eski 01-02-2018, 01:00   #6
Golden-M
 
Giriş: 10/04/2006
Şehir: İstanbul
Mesaj: 14
Varsayılan

Arkadaşlar her ikinize de çok teşekkür ederim. Emeklerinize sağlık. Baran Beyin förmülü ile çözdüm.
Golden-M Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 16:33


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Dil Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Rampa- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Şişli Avukat- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kağıt Bardak- Çorlu Havuz- Çorlu Havuz- Çorlu Perde Yıkama- Okul Danışmanlık- ADR'li taşıma kabı imalatı- Mekanik Tesisat- Çorlu Grafik Tasarım- Çorlu Sondaj- Çorlu Etüt- Futbol Cafe- Beylikdüzü Temizlik- Çorlu Kurs- Çorlu Ders- İzmit Mimar- Hurda Bakır Kablo- Hurda Bakır Kablo- Çorlu Pronet- Çorlu Yönetim- Çorlu Apartman Yönetimi- Çorlu Marangoz- Çorlu Avukat- Çorlu Su Arıtma- Çorlu Kompresör- İstanbul İnşaat-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden