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 14-02-2017, 12:27   #11
çıtır
 
Giriş: 06/03/2005
Şehir: kdz.ereðli
Mesaj: 69
Varsayılan

Alıntı:
assenucler tarafından gönderildi Mesajı Görüntüle
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.
Sizin de her şey gönlünüzce olsun bilmukabele ,sorunun çözüldüğüne memnun oldum. Güzel temennileriniz için teşekkürler.
çıtır Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-02-2017, 14:47   #12
çıtır
 
Giriş: 06/03/2005
Şehir: kdz.ereðli
Mesaj: 69
Varsayılan

Makrosuz; ilk tabloyu ve A sütunun gizle

http://s9.dosya.tc/server2/s8kwvh/ss6.rar.html
çıtır Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-02-2017, 08:39   #13
reallerking
 
Giriş: 07/01/2017
Şehir: Uşak
Mesaj: 16
Excel Vers. ve Dili:
2007
Varsayılan

İlk tabloyu ve A sütununu gizleyerek yapmayı denedim ama bir değişiklik olmadı. Elle tarih giriyorum denemek amaçlı herhangi bir değişiklik yok. Makroyu deniyorum tek değişiklik plakaların yerleri değişiyor farklı plaka farklı bir tarihe geçiyor. Tarihte herhangi bir değişiklik olmuyor. Bir yerde hata yapıyorum ama nerede ? Plaka sütununa hücre biçimlendirden 64 ön sayısını otomatik attıyorum bunun bir önemi olabilir belki yardımını bekliyorum çıtır kardeşim yoruyoruz seni hakkını helal et
reallerking Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-02-2017, 10:12   #14
çıtır
 
Giriş: 06/03/2005
Şehir: kdz.ereðli
Mesaj: 69
Varsayılan

isteğiniz bu:
Ö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.

1)Kalan günü otomatik olarak gösterir.

2)Günün tarihini girerseniz 1 yıl sonraki tarihi atar ve en son satıra diğer verileriyle birlikte gider.15.02.2017 tarihini girerek deneyin. örn. baştaki plakaya 15.02.2017 tarihini girin makroda başka sayfayı örn 2. sayfa aç tekrar sayfayı aç. değişir. diğer verileriyle en alt satıra gider ve 15.02.2018 olur.

3)Makrosuzda ilk 1.tabloda ilk plakaya günün tarihini yaz. 2.tabloda en alt satıra gider ve kalan günleri gösterir.
çıtır Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-02-2017, 15:10   #15
reallerking
 
Giriş: 07/01/2017
Şehir: Uşak
Mesaj: 16
Excel Vers. ve Dili:
2007
Varsayılan

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
Bunu kullanarak çalıştırdığımda plakaların yerleri değişiyor. Plakaların kendi tarihlerini çekemiyor farklı plaka farklı tarihe kayıyor. 15.02.2017 veya daha önceki bir tarihi yazıyorum sayfayı yeniliyorum fakat tarihi en alta atmıyor veya 2018 olmuyor. Sütun isimlerinde bir sıkıntı olma ihtimali var mı ? Makrolu olan daha kullanışlı olacak benim için bunun için yoruyorum seni. Makrosuz olan çalışıyor onda sıkıntı yok.
reallerking Çevrimdışı   Alıntı Yaparak Cevapla
Eski 15-02-2017, 15:33   #16
çıtır
 
Giriş: 06/03/2005
Şehir: kdz.ereðli
Mesaj: 69
Varsayılan

Tablonuz A sütunu 2 satırdan başlamalı.Tablo resmini daha önce gönderdim.bu resme bakınız.
çıtır Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-02-2017, 12:12   #17
reallerking
 
Giriş: 07/01/2017
Şehir: Uşak
Mesaj: 16
Excel Vers. ve Dili:
2007
Varsayılan

Kodsuz hali yani benim kullandığım hali bu.

[IMG][/IMG]

Kodu kullanıyorum çalıştırıyorum sayfayı yeniliyorum ve durum bu. Elle tarih giriyorum denemek için herhangi bir değişiklik olmuyor dediğim gibi de plakaların yerleri değişirken kendi tarihlerini çekemiyor tarihler karışıyor.

[IMG][/IMG]

[IMG][/IMG]

Sorunu çözmek adına gösteriyorum sayfa 2'den a sütununa veri listesi uyguluyorum. Sorun bununla alakalı olabilir mi ?

[IMG][/IMG]
reallerking Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-02-2017, 13:20   #18
çıtır
 
Giriş: 06/03/2005
Şehir: kdz.ereðli
Mesaj: 69
Varsayılan

Hücre birleştirmesi yapıldı mı? Hücre birleştirmesi var ise kod buna göre düzenlenmelidir veya tabloda hücre birleştirmesi yapma . Sorun kodları yanlış yere yapıştırılmış.VBA projette Sayfa(Sayfa1) i çift tıkla.(Genaral) den Worksheet seç araya kodları yapıştır. Kolay gelsin sonuç bildir.teşekkür ederim resim ekledim.

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

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

Evet şimdi oldu Tekrar teşekkürler çıtır kardeşim +rep falan da yok forumda vereyim hak ediyorsun. Emeğine sağlık...
reallerking Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-02-2017, 18:03   #20
çıtır
 
Giriş: 06/03/2005
Şehir: kdz.ereðli
Mesaj: 69
Smile teşekkürler

Senin canın sağ olsun.Önemli olan sorunların çözülerek, insanların mutlu olması.Sağlık,mutluluk ve başarılar dilerim.
çıtır Ç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 03:17


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Hurda - Torna- Çorlu Hidrofor- Çorlu Web Tasarım - Tarot Falı- Çorlu Kasap- Fenerbahçe Haberleri- Trakya Haberleri- Tekirdağ Avukat- Çorlu Döner- Investing- Hurda- Kobi Danışmanlık- Tekirdağ Samsung- Kozmetik Ürünler- Sağlıklı Makyaj Ürünleri- Yaşlanma Karşıtı Ürünler/a>
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.