Kopyalama düzenlemesi hakkında

[arol11]

Selamlar,
Ekli dosyamda 1.düzenleme ve 2.düzenleme başlıklı iki alan var.
1.DÜZENLEME:B sutunundaki yeşil renkli boş alanlara hemen üstündeki değerlerin aynısını kopyalamak ki dolu hücreye kadar.
2.DÜZENLEME:Tarih ve GİRİŞ KAPI değerlerini 2. bir tarihe kadar aynısını kopyalamak.
En iyi dileklerimle ,iyi çalışmalar dilerim.

 

[Levent Menteşoğlu]

Birinci sorunuz için aşağıdaki kodu deneyin.

Sub duzenle()
For a = 3 To [c65536].End(3).Row
If Cells(a, "b") <> "" Then
deg = Cells(a, "b")
Else
Cells(a, "b") = deg
End If
Next
End Sub

İkinci sorunuz için sonuçlar hangi sütunlara yazılacaktır, ayrıca B sütunundaki veriler ritmik gitmiyor, örneğin 36.satırdaki kapının bir üst satırında tarih yazmıyor.

 

[arol11]

İyi akşamlar,Sayın leventm
Sizin kodları bir butona bağladım.D sutunundaki tarih değerlerini ve GİRİŞ KAPI değerlerini İKİNCİ tarih değerine kadar aynısının kopyalanması.Eğer iki tarih arasında GİRİŞ KAPI varsa istediğiniz ritmik ayarı yapabilirsiniz.Bu yerler boşta kalabilir.
İlk düzenleme sonucuna göre düşünürseniz,Sayı ifade eden değerlerin tam karşısı olmaktadır.

 

[Levent Menteşoğlu]

Aşağıdaki kodu son eklediğiniz dosyada deneyin.

Sub duzenle()
For a = 1 To [e65536].End(3).Row
If Cells(a, "d") <> "" Then
deg = Cells(a, "d")
Else
Cells(a, "d") = deg
End If
If InStr(1, Cells(a, "d"), "GİRİŞ") = 1 Then
kapi = Cells(a, "d")
tarih = Cells(a - 1, "d")
Else
Cells(a, "b") = tarih
Cells(a, "c") = kapi
End If
If IsDate(Cells(a, "d")) = True Then
Cells(a, "b") = ""
Cells(a, "c") = ""
End If
Next
End Sub

 

[arol11]

Selamlar,sayın leventm
Bir dosya daha eklemek zorunda kaldım.Konuyu basitçe anlatmak için ilk mesajımdaki gibi hazırlamıştım.Fakat daha ayrıntılı olan örnek dosyada konuyu çerçeveledim.Şimdi bu son hale göre yardımcı olmanız mümkünmü?.Biliyorum benim hatam.Sizden önemle rica ediyorum.Hatalar dosyadadır.