Sonucu başka sayfaya aktarma ve verileri temizleme

[em.mehmetaliates]

Merhaba,

Aşağıda kendim seçenekler yardımı ile her sipariş için sürelerini hesaplayabileceğim bir çalışmanın örneğini paylaştım. Sorunun şu ki Hesaplama zaten formül olduğu için otomatik olacak. Fakat ben bu süreleri hem veritabanı oluşturmak hemde çok amaçlı kullanabilmek amacıyla sayfa 3 teki kısıma aktarmak istiyorum. Tuşa tıkladığımda Sipariş numarasını sayfa 3 teki kısma(tabi ard arda kayıtlar yapılmaya başlanacağı için boş bulduğu ilk satıra aktaracak. Daha sonra yine aynı şekilde bant bazında belirtilen süreleride sayfa 3 te hazırlanan satıra işleyecek. Tekrar işlem yapılabilmesi için elle manuel girilen hücreleri temizleyecek.

Aslında makro bilgim olsa aklıma yapılacak bir sürü şey geliyor fakat makro hakkında bilgi sahibi değilim.

Hangi hücrelerin temizleneceği az çok anlaşılır. Özellikle belirtmiyorum.Çünkü bu benim örnek çalışmam. Sadece ana kodları öğrenmek istiyorum. Hücreleri temizleme kodunu yazdıktan sonra not olarak belirtirseniz o kodu istediğim hücrelere uygulayabilirim.

Umarım istediğim şeyi net anlatabilmişimdir.

İyi çalışmalar.

 

[Muhammet Okumuş]

Merhaba,

Sub Aktar()
son = Sheets("Sayfa3").Cells(Rows.Count, 1).End(3).Row + 1
Sheets("Sayfa3").Cells(son, 1) = Range("B1").Value
Sheets("Sayfa3").Range("B" & son & ":E" & son) = Range("M88").Value
End Sub

Kodu deneyiniz.

 

[em.mehmetaliates]

İlginiz için teşekkürler. Biraz geç oldu kusura bakmayın ama daha öncede söylediğim gibi kopyalayacağım hücrelerin yerini değiştirdim. Makro yazmaktan anlamadığım için kod üzerinden bile değişiklik yapamadım. Tekrar yardımcı olursanız sevinirim.

 

[Muhammet Okumuş]

Sub Aktar()
son = Sheets("Sayfa3").Cells(Rows.Count, 1).End(3).Row + 1
Sheets("Sayfa3").Cells(son, 1) = Range("J3").Value
Sheets("Sayfa3").Range("B" & son & ":H" & son) = Range("H13:N13").Value
End Sub

Kodu deneyiniz.

 

[em.mehmetaliates]

Teşekkürler.