C sütununun son dolu satırına kadar A sütununa dağer girişi

[kelkitli]

Değerli Dostlar selamlar,
Ekteki dosyada C sütununda dolu hücreler var. İstiyorum ki C sütunundaki dolu son satıra kadar S2 -Aw2 hücrelerindeki değerleri birleştirerek C deki dolu hücrelerin solunda kalan A sütunundaki hücreleri bu değer ile doldurayım.

 

[ASMET67]

Denermİsİnİz

İstediğinizden anladığım kadarıyla dosyanıza ekleme yaptım. Denermisiniz.

 

[ASMET67]

Dosya

Dosyayayı eklemeyi unutmuşum.

 

[kelkitli]

Sayın ASMET67 cevabınız için teşekkürler,
Ben A sütununda bulunan A3 ten sonraki satırları C nin dolu olduğu son satıra kadar demiştim ama bu işlem gerçekleşmedi

 

[ASMET67]

Birleştir butununa tıkladığından a3 ile a54 arsına S2 ile AW2 deki veriyi birleştiriyor

 

[kelkitli]

Birleştiriyor da boş hücreleri doldurmuyor. Yine de teşekkürlerimi iletirim.

 

[ASMET67]

Hangi sutundaki boş hücreyi doldurmuyor
Biraz daha açarsanızı yardımcı olabilirim.

 

[kelkitli]

Sayın ASMET67,
Birleştirilen veri ekteki doyadaki şekilde yerleştirilecek. Bu işlem yapılırken C sütunu kaçıncı satıra kadar doluysa birleştirilen veri de o satıra kadar yazılacak.

 

[Necdet]

Merhaba,

Pek birşey anlamamakla birlikte :

Sub DÖNEM()
Set s1 = Sheets("HESAPLA")
s1.Select
Range("A3:A65536").ClearContents
Deger = Format([E2], "dd.mm.yyyy") & "-" & Format([AW2], "dd.mm.yyyy")
For i = 3 To s1.[C65536].End(3).Row
    s1.Cells(i, "A") = Deger
Next i
End Sub

soru S2 ve AW2 deniyor ama örnek dosya E2 AW2 değerleri var, artık hangisi doğru ise siz onu koddan değiştirin.

 

[kelkitli]

Necdet Hocam Selamlar,
Hatalı yazmışım özür dilerim. Yazdığınız kod tamdır. Çok çok teşekkür ederim.