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 13-02-2017, 08:59   #1
reallerking
 
Giriş: 07/01/2017
Şehir: Uşak
Mesaj: 16
Excel Vers. ve Dili:
2007
Varsayılan Tarihi geçen hücreyi yeni tarihiyle en alta atma ?

[IMG][/IMG]

Merhaba arkadaşlar resimde ki gibi bir tablom mevcut. Tarihi gelen hücreleri bütünüyle en alt satıra yeni tarihleriyle nasıl atabilirim ? Burada sanırım makro devreye girecek. Örnek vermem gerekir ise 01.03.2017 tarihli bir hücrem tarihi geldiğinde 01.03.2018 olarak diğer verileriyle birlikte en alt satıra gitsin istiyorum. Yardımlarınızı bekliyorum, şimdiden teşekkürler...
reallerking Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-02-2017, 00:02   #2
çıtır
 
Giriş: 06/03/2005
Şehir: kdz.ereðli
Mesaj: 274
Varsayılan

İsterseniz satır ve sütun gizleyerek makrosuz yapılabilir.
Makro olarak sayfanın kod kısmına:
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_Activate()
Dim i As Integer, satir As Integer
Application.ScreenUpdating = False
On Error Resume Next
satir = Cells(Rows.Count, 1).End(xlUp).Row
For i = 3 To satir
If Range("c" & i) <> "" And Range("c" & i).Value <= Date Then
Range("c" & i) = WorksheetFunction.EDate(Range("c" & i), 12)
End If
 Next i
 Range("A3:C" & satir).Select
    ActiveWorkbook.Worksheets("Sayfa1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sayfa1").Sort.SortFields.Add Key:=Range("C3:C" & satir) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sayfa1").Sort
        .SetRange Range("A3:C" & satir)
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    For i = 3 To satir
   If Range("c" & i) <> "" Then
Range("d" & i) = Range("c" & i) - Date & " GÜN KALDI"

End If
Next i
    Range("D3").Select
    Application.ScreenUpdating = True
End Sub

Bu mesaj en son " 14-02-2017 " tarihinde saat 03:19 itibariyle çıtır tarafından düzenlenmiştir....
çıtır Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-02-2017, 06:26   #3
assenucler
Altın Üye
 
Giriş: 19/08/2004
Şehir: Istanbul
Mesaj: 2,392
Excel Vers. ve Dili:
Office 2016 TR - Windows 10 TR x64
Varsayılan Teşekkür ve bir istek

Sayın Çıtır,


Günaydın.

İlgi duyduğum için dosyayı indirdim.

Kasko tarihi geçenler için " 10 GÜN GEÇTİ" şeklinde, gün sayısı değişen bir açıklama için, koda nasıl bir ekleme yapmak gerekiyor?

Yardımınız için teşekkürler.

Sevgi ve saygılar.
__________________
Windows 10 Türkçe
Office 365 TR Ev Ekstra 2016
assenucler Çevrimiçi   Alıntı Yaparak Cevapla
Eski 14-02-2017, 07:38   #4
çıtır
 
Giriş: 06/03/2005
Şehir: kdz.ereðli
Mesaj: 274
Varsayılan

For i = 3 To satir
If Range("c" & i) <> "" And Range("c" & i).Value <= Date Then
Range("c" & i) = WorksheetFunction.EDate(Range("c" & i), 12)
End If
Next i
1. For i Silinmelidir.

2. next i den önce ilave edilmelidir.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
If Range("c" & i) <> "" And Range("C" & i) < Date Then
Range("d" & i) = (Range("c" & i) - Date) * -1 & " GÜN GEÇTİ"
End If
If Range("c" & i) <> "" And Range("C" & i) = Date Then
Range("d" & i) = " KASKO GÜNÜ"
End If

Bu mesaj en son " 14-02-2017 " tarihinde saat 07:49 itibariyle çıtır tarafından düzenlenmiştir....
çıtır Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-02-2017, 10:25   #5
reallerking
 
Giriş: 07/01/2017
Şehir: Uşak
Mesaj: 16
Excel Vers. ve Dili:
2007
Varsayılan

Çıtır kardeşim tekrar eline sağlık Makrosuz yapmak istesek nasıl yapabiliriz ? Bu kodları çalıştırdım ama bir değişiklik olmuyor gibi bir yerde hata yapıyorum sanırım. Yeni tarih giriyorum mesela bugünün veya daha önceki bir günün herhangi bir değişiklik olmuyor. .... Gün Kaldı kısmını kullanarak <=0 diyerek tarihe +1 yıl eklemek yoluyla yapmak nasıl olurdu ? dosyayı ekliyeyim daha yardımcı olabilir...Teşekkür ediyorum tekrar...https://sheet.zoho.com/sheet/ropen.d...487852c9bb01b7
reallerking Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-02-2017, 10:32   #6
assenucler
Altın Üye
 
Giriş: 19/08/2004
Şehir: Istanbul
Mesaj: 2,392
Excel Vers. ve Dili:
Office 2016 TR - Windows 10 TR x64
Varsayılan

Sayın çıtır,


Öncelikle ilginiz için teşekkürler.

Açıklamanıza göre yanlış yaptığım bir şey olmalı, hata iletisi aldım.

Dosya ilişiktedir.
Eklenmiş Dosyalar
Dosya Türü: xls KaskoTakip_KodHatasıVerdi.xls (40.0 KB, 5 Görüntülenme)
__________________
Windows 10 Türkçe
Office 365 TR Ev Ekstra 2016
assenucler Çevrimiçi   Alıntı Yaparak Cevapla
Eski 14-02-2017, 10:47   #7
çıtır
 
Giriş: 06/03/2005
Şehir: kdz.ereðli
Mesaj: 274
Varsayılan

Tablonuz uygun olmayabilir.sayfa adı uygun olmayabilir. Sayfa değiştirip açtığınızda kodlar çalışıp değişiklik olur. Resim ekliyorum.


http://i.hizliresim.com/bkq3Wn.png

http://i.hizliresim.com/X9VQB3.png

Bu mesaj en son " 14-02-2017 " tarihinde saat 11:03 itibariyle çıtır tarafından düzenlenmiştir....
çıtır Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-02-2017, 11:02   #8
assenucler
Altın Üye
 
Giriş: 19/08/2004
Şehir: Istanbul
Mesaj: 2,392
Excel Vers. ve Dili:
Office 2016 TR - Windows 10 TR x64
Varsayılan

Pencere resmini ekliyorum. Tablo yapısı ve sayfa1 adı sizin resminizdeki gibidir.


Kod sayfa resmi:

http://i.hizliresim.com/ad9Oj4.png
__________________
Windows 10 Türkçe
Office 365 TR Ev Ekstra 2016
assenucler Çevrimiçi   Alıntı Yaparak Cevapla
Eski 14-02-2017, 11:10   #9
çıtır
 
Giriş: 06/03/2005
Şehir: kdz.ereðli
Mesaj: 274
Varsayılan

Silinmeyen kısım var.Resmi ekledim , yeşil kısım silinecek.
çıtır Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-02-2017, 11:17   #10
assenucler
Altın Üye
 
Giriş: 19/08/2004
Şehir: Istanbul
Mesaj: 2,392
Excel Vers. ve Dili:
Office 2016 TR - Windows 10 TR x64
Varsayılan

Sayın çıtır,


İnşallah beni yanlış anlamamışınızdır.6. iletide de değindim "yanlış yaptığım bir şey olmalı" diye.

Sorun çözüldü. Sağ olun var olun. Her şey gönlünüzce olsun.
__________________
Windows 10 Türkçe
Office 365 TR Ev Ekstra 2016
assenucler Çevrimiçi   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 22:52


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Hurda - Torna - Çorlu Web Tasarım - Tarot Falı - Fenerbahçe Haberleri - Trakya Haberleri - Investing - Hurda - Tekirdağ Samsung - Kozmetik Ürünler - Sağlıklı Makyaj Ürünleri - Yaşlanma Karşıtı Ürünler - Excel Eğitimi - Çorlu osgb - Lingerie - Dyeing Machine - Çorlu Temizlik- Çorlu Ambar- Hava Çekimi- Hazır Site- SEO- Çorlu Burun Estetiği- Çorlu Pimapen- Karton Bardak- Marka Tescil Danışmanlık- Marmara Ereğlisi Restaurant- Çorlu Baskı- Çorlu Sigorta- Çorlu Pimapenci- İstanbul Avukat-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden