Merhabalar,
Bir arkadaşa makro hazırlıyorum ama bir yerde takıldım ve yardımınıza ihtiyacım var. Fazla bilgim yok. Elle yaptıklarımı makroya kaydettirip kodu inceleyerek öğreniyorum.
Hemen söyliyeyim, bendeki office ingilizce, arkadaştaki türkçe. Fazla sorun olmıyacağını umuyorum.
12 çalışma sayfası var. Ocak tan Aralık a . Tablolardaki veriler gün sırasına göre hazırlanmış. Formdan girilen girdiler yine gün sırarına göre formun çalıştırıldığı sayfadaki tabloya eklenecek. Macro ile A2:J2 sütün başlıklarında form çalıştırılıyorum ve girdiler ekle dediğimde otomatik olarak giriliyor A3:J2 ye yani başlıkların hemen altına giriliyor. Bunu en son satıra ekletmeyi bir türlü beceremedim. Asıl sorun bu değil. Sorun bu 3ncü satırdan kestiklerimi istediğim yere yapıştırken çıkıyor. Şu şekilde bir kod yazdım:
Sorun x olan yerlerde. Satırı komple seçemiyorum. Shift+Ctrl+Sağ tuşu ile seçtiğimde herzaman tablonun sonuna kadar seçmiyor. Yani "Selection.Insert Shift:=xlDown" komutu kadar sağlıklı çalışmıyor. Buyüzden satır ekle tam başalırı olamıyor. Dolayısıyla yapıştırma işlemi de. Ama Öyle sanıyorumki. Paste metodumda da bir sorun var.
Umarım anlatabilmişimdir. Yardımlarınızı bekliyorum.
Şimdiden Teşekkürler.
Bir arkadaşa makro hazırlıyorum ama bir yerde takıldım ve yardımınıza ihtiyacım var. Fazla bilgim yok. Elle yaptıklarımı makroya kaydettirip kodu inceleyerek öğreniyorum.
Hemen söyliyeyim, bendeki office ingilizce, arkadaştaki türkçe. Fazla sorun olmıyacağını umuyorum.
12 çalışma sayfası var. Ocak tan Aralık a . Tablolardaki veriler gün sırasına göre hazırlanmış. Formdan girilen girdiler yine gün sırarına göre formun çalıştırıldığı sayfadaki tabloya eklenecek. Macro ile A2:J2 sütün başlıklarında form çalıştırılıyorum ve girdiler ekle dediğimde otomatik olarak giriliyor A3:J2 ye yani başlıkların hemen altına giriliyor. Bunu en son satıra ekletmeyi bir türlü beceremedim. Asıl sorun bu değil. Sorun bu 3ncü satırdan kestiklerimi istediğim yere yapıştırken çıkıyor. Şu şekilde bir kod yazdım:
Kod:
'A3, gün numarası S1e atanır ve bir arttırılır
Range("A3").Select
S1 = ActiveCell.Value
S1 = S1 + 1
'3ncü satır komple seçilir ve kesilir
Rows("3:3").Select
Selection.Cut
'A3 hücresi A sütununda arama yapmak için seçilir
Range("A3").Select
'A3 hücresine girilmiş olan gündeki son girdi bulunur ve bir alt hücre seçilir
While ActiveCell.Value <> S1
ActiveCell.Offset(1, 0).Select
Wend
x 'Seçilen hücrenin satırı komple seçilir
x Range(Selection, Selection.End(xlToRight)).Select
x 'üstüne satır eklenir
x Selection.Insert Shift:=xlDown
x 'eklenen satirla 3ncü satırdan kesilen değerler yapıştırılır
x ActiveSheets.paste
'Kesilen A satırına yenisi eklenir
Range("3:3").Select
Selection.Insert Shift:=xlDownSorun x olan yerlerde. Satırı komple seçemiyorum. Shift+Ctrl+Sağ tuşu ile seçtiğimde herzaman tablonun sonuna kadar seçmiyor. Yani "Selection.Insert Shift:=xlDown" komutu kadar sağlıklı çalışmıyor. Buyüzden satır ekle tam başalırı olamıyor. Dolayısıyla yapıştırma işlemi de. Ama Öyle sanıyorumki. Paste metodumda da bir sorun var.
Umarım anlatabilmişimdir. Yardımlarınızı bekliyorum.
Şimdiden Teşekkürler.
