iki farklı değeri kopyalama

[arol11]

İyi akşamlar,
Ekli dosyaya sayın leventm katkıda bulundu.Ayrı bir başlığa taşımamın nedeni soruyu tekrar düzenlemiş olmam ve daha anlaşılır olması kaygısıyladır.D sutunundaki :
Yeşil ve kahve renkli değerleri kopyalamak.Lütfen yardımcı olabilirmisiniz.
En iyi dileklerimle,kolay gelsin,iyi çalışmalar dilerim.

 

[Orion1]

Merhaba
Tarih bölümünü anlamadım .İlk sorunuzu yaptım.
Ekli dosyayı inceleyiniz.
Merakımı mazur görün.Siz hep böyle enteresan uygulamalar istiyorsunuz.
Bunları nerede kullanıyorsunuz acaba ?
Tarih ile ilgili bölümde yapıldı.Dosya güncellendi.

Sub degisik_bir_sey()
Dim sonsat As Long, i As Long, ustdeg As Double, tarih As Date
Sheets("Sayfa1").Select
sonsat = Cells(65536, "D").End(xlUp).Row
For i = 1 To sonsat
    If Cells(i, "D").Value = "" And Cells(i, "E").Value <> "" Then
        ustdeg = Cells(i - 1, "D").Value
        Cells(i, "D").Value = ustdeg
    End If
    If IsDate(Cells(i, "D")) Then tarih = Cells(i, "D").Value
    Cells(i, "B").Value = CDate(tarih)
    Cells(i, "B").NumberFormat = "dd.mm.yyyy"
Next
MsgBox "İŞLEM TAMAMLANDI.."
End Sub

 

[arol11]

Teşekkür ederim sayın orion2 ,
Ben bir nakliye firmasında çalışmaktayım.200 kadar araç için giriş çıkışları çeşitli biçimlerde hazırlanmış değişik kişilerce hazırlanmış ve devam etmekte olan listeleri düzenliyorum.
Sizin çözüm yarım kaldı.D sutunundaki "tarihleri" B sutununda aynen yazdırmak taaaki ikinci tarihe kadar.Devamla diğer tarihie kadar.Bunlarıda kahve rengi ile gösterdim.

 

[Orion1]

Teşekkür ederim sayın orion2 ,
Ben bir nakliye firmasında çalışmaktayım.200 kadar araç için giriş çıkışları çeşitli biçimlerde hazırlanmış değişik kişilerce hazırlanmış ve devam etmekte olan listeleri düzenliyorum.
Sizin çözüm yarım kaldı.D sutunundaki "tarihleri" B sutununda aynen yazdırmak taaaki ikinci tarihe kadar.Devamla diğer tarihie kadar.Bunlarıda kahve rengi ile gösterdim.

Bu tarihleri anlamadım.
ilkyaptığım uygulamada d sütunundaki hücre boşsa ve hemen yanındaki E sütunu dolu ise şartını sağlayarak kodumu yazdım.
Şimdi tarihler i yazrak yalnız kahve renge boyalı hücrelerin rengi dkkate alınarakmı yapılacak.Birde tam karşılığındaki tarih yazılacak.Bu biraz karışık geldi.

 

[arol11]

Renkleri dikkate almayın.konuyu daha anlaşılır kılmak için hazırladım.sadece tarih değeri alınacak.Şöylede olabilir E SUTUNUNU DİKKATE ALIRSANIZ dolu olanlara D sutunundaki tarih değeri B sutununa kopya edilecek taaki ikinci tarihe kadar.

 

[Orion1]

Sorunuzu anladığım kadarı ile düzenledim.İsterseniz bir kontrol edin.
Dosyayı önceki mesajımdan indirebilirsiniz.

 

[arol11]

Gerçekten sağol,teşekkür ederim orion2,iyi çalışmalar ve başarılar dilerim.

 

[Orion1]

Merhaba.

Sheets("Sayfa1").Select

Yukarıdaki kodun altına aşağıdaki kodu yazınız.Böylece kod her çalıştığında B sütunundaki değer leri silecektir.. Bu durmda silimiyor üstüne yazıyor.

Range("B:B").clearcontents

 

[arol11]

Konuyu takip etmenizi ve geliştirmek için harcadığınız zamana ve emeğinize çok teşekkür ederim.Bu saatler için bir ek soru hazırladım.Gri renkle işaretli değeri kopyalamadı.Ritim bozukluğundanmıdır nedir,bi göz atabilirmisin orion2.Olursa düzenleme iyi olur olmassada canın sağolsun.Yeteri kadar zahmet verdim zaten sizlere.
İyi çalışmalar ve başarılar dilerim,içtenlikle.

 

[Orion1]

Konuyu takip etmenizi ve geliştirmek için harcadığınız zamana ve emeğinize çok teşekkür ederim.Bu saatler için bir ek soru hazırladım.Gri renkle işaretli değeri kopyalamadı.Ritim bozukluğundanmıdır nedir,bi göz atabilirmisin orion2.Olursa düzenleme iyi olur olmassada canın sağolsun.Yeteri kadar zahmet verdim zaten sizlere.
İyi çalışmalar ve başarılar dilerim,içtenlikle.

Dosyayı eklereseniz bakarım.

 

[arol11]

üstteki ziplidir,

 

[Orion1]

Gri renkli satırlara boşluk karakteri girilmiş.
Siz orada bir şey görmesenzde excel o hücreyi dolu kabul ediyor.
Ve bizim kodumuz boş hücreler için çalıştığından dolayı o hücreleri pas geçiyor.
O hücreleri seçin ve temizleyin.Kodun çalıştığını göreceksiniz.
Yolladığınız ilk dosyadada böyle hücreler vardı onları ben temizledim ondan sonra kod çalıştı.
Muhtemelen bundan sonraki çalışmalarınızdada böyle hücrelerle karşılacaksanız.Onun için dikkatli olmalısınız.

 

[arol11]

Çattık desene,Sizce en pratik nasıl bulurum bunları.

 

[Orion1]

Çattık desene,Sizce en pratik nasıl bulurum bunları.

D sütununu seçin.
Düzen ==> Değiştir ==> Aranan 'a bir boşluk tuşuna basınız.
Yeni değer'i boş bırakınız.Ve tümünü değiştire basınız.Böylece Bütün boşlukları silinecektir.
Ama kelime aralarında boşluk varsa onlarda silininecektir.Tercih size kalmış.

 

[arol11]

tamam,sayın orion2,sirusta görüşmek dileği ile .

 

[Orion1]

tamam,sayın orion2,sirusta görüşmek dileği ile .

İyi çalışmalar.:cool.