Buton İle Sıradaki Tarihi Atamak

[ormann]

İyi günler ekteki örnek dosyada g3:g24 hücre aralığında karışık tarihler var.Benim yapmak istediğim d3 hücresinden g3:g24 hücre aralığındaki herhangi bir tarihi seçip butona bastığımda d3 hücresinde seçilen tarihten sonraki tarihi (g3:g24 hücrelerindeki ) d3 hücresine atmasıdır.Örneğin : Örnekte d3 hücresinden 04.02.2013 seçip butona bastğımda d3 hücresine 06.02.2013 tarihini atacak.Tekrar butona bastığımda 07.02.2013 tarihini atacak.Desteğinizi bekliyorum.Saygılar sunuyorum

 

[monelogg]

Merhaba, Sn. suleyman242'nin de bana yaptığı bir çalışmadan faydalanarak şu kodu hazırladım, umarım işinizi görür.

Private Sub CommandButton1_Click()
trg = Range("d3").Value
Set c = Worksheets(1).Range("g3:g24").Find(trg, LookIn:=xlValues)
satir = c.Row
Range("d3").Value = Cells(satir + 1, "G").Value
End Sub

 

[ormann]

Sayın Monelog ;makroyu başka bir hücre aralığına ekledim.Hata verdi.Bu hücre aralığına göre yapabilirmisiniz?

Private Sub CommandButton1_Click()
trg = Range("d7").Value
Set c = Worksheets(1).Range("p11:p41").Find(trg, LookIn:=xlValues)
satir = c.Row
Range("d7").Value = Cells(satir + 1, "p").Value
End Sub

 

[monelogg]

Merhaba, ekteki dosyayı sizin kodlarınızla yaptım, emin değilim ama tahminimce hücre biçimlendirmesinde ya da listelemede bir sorun çıktı diye düşünüyorum.

 

[ormann]

Şu satırda hata veriyor.Anlamadım.
satir = c.Row

 

[muygun]

Merhaba;
Syn. monelogg'un kodlarında gereken adres değişikliğini yaparsanız sorunsuz çalışıyor.
Sadece TARH adlı hücre tanımlamasını kaldırdım.
İyi çalışmalar.

 

[monelogg]

Ben de sizin kodlarınızı ilk denediğimde
satir=c.Row
satırında hata veriyordu ama D7 hücresinin biçimini değiştirip tarih yapınca sorun düzelmişti.


Eğer bu da yardımcı olmazsa, kusuruma bakmayın, beni aşan bir durum olacak eğer benden daha iyi bilen kişiler yardım edebilirse ben de öğrenmiş olurum.

Not: Sn. muygun benden önce bir cevap yazmış, şimdi gördüm, cevapladığınız için teşekkür ederim.

 

[ormann]

Arkadaşlar ne yaptımsa bir türlü olmadı.Asıl dosyayı gönderiyorum.Bakabilirmisiniz?

 

[muygun]

Merhaba;
Alternatif olsun.
Eki deneyin.
İyi çalışmalar.

 

[ormann]

Sayın Muygun teşekkür ederim.Benim demek istediðim, d7 hücresine p1141 hücre aralığından her hangi bir tarihi girdiðimde tarih at butonuna bastığımda d7 hücresine girilen tarihden sonra p1141 hücresinde) hangi tarih varsa d7 hücresine o tarih i atacak

 

[muygun]

Merhaba;
kodları;

Sub tarihiat()
Set s1 = ThisWorkbook.Worksheets("VERİ GİRİŞİ")
ilktarih = s1.Cells(7, 4)
For z = 11 To 41
If s1.Cells(z, "c") = ilktarih Then satırr = z
Next z
s1.Cells(7, 4) = s1.Cells(satırr + 1, "p")
End Sub

Şeklinde düzenleyip deneyin.

Not: C sütununda bulunan tarihin karşısındaki P sütun değerininin bir satır altındaki değeri istiyorsanız bu şekilde,
C sütununda bulunan tarihin karşısındaki P sütun değerini istiyorsanız

s1.Cells(7, 4) = s1.Cells(satırr + 1, "p")

satırını;

s1.Cells(7, 4) = s1.Cells(satırr , "p")

şeklinde düzenleyer deneyin.

İyi çalışmalar.

 

[ormann]

Kod gene istediğim şekilde olmadı Sayın Muygun.Benim istediğim P sutununda bulunan her hangi bir tarihi D7 hücresine girdiğimde örneğin P sutununda şöyle tarihler var
01.03.2013
04.03.2013
05.03.2013
06.03.2013
08.03.2013
Ben bu tarihlerden örneğin 04.03.2013 tarihini D7 hücresine yazdığımda ve butona bir kez bastığımda d7 hücresine 05.03.2013'ü yazacak .Tekrar bastığımda 06.03.2013 ,tekrar bastığımda 06.03.2013 ü,tekrar bastığımda 08.03.20132 ü yazacak

 

[monelogg]

Merhaba, umarım doğru anlamışımdır, Sn. muygun'un kodlarında şu değişikliği yaparsanız istediğiniz gibi olur zannediyorum:

Sub tarihiat()
Set s1 = ThisWorkbook.Worksheets("VERİ GİRİŞİ")
ilktarih = s1.Cells(7, 4)
For z = 10 To 41
If s1.Cells(z, [COLOR="Red"]"p"[/COLOR]) = ilktarih Then satırr = z
Next z
s1.Cells(7, 4) = s1.Cells(satırr + 1, "p")
End Sub

 

[ormann]

Sn.Monelogg ve Sn. Muygun çok teşekkür ederim.Kodlar şimdi tam istediğim şekilde oldu .Ellerinize sağlık