Verileri sıralı girme

[klevera]

abiler cümleten s.a;
sizler için basit bir sorum olacak yardımcı olursanız çok sevinirim.

A1 hücresine 123 yazıyorum. ve B1 HÜCRESİNE bir kayıt butonu olsun ve bu butona tıkladığımda
A2 hücresine 123 rakamlarını kaydetsin. ve A1 hücresine yeni girilen değerleri A3, A4, A5 hücerelerine kayıt yaparak devam etsin.

 

[muygun]

Merhaba;
Boş bir modüle;

Sub kaydet()
Application.ScreenUpdating = False
On Error Resume Next
sonsatir = Range("A65536").End(xlUp).Row + 1
Cells(sonsatir, 1) = Cells(1, 1)
Application.ScreenUpdating = True
End Sub

Kodları ekleyin ve bir butona bağlayarak deneyin.
İyi çalışmalar.

 

[klevera]

Teşekkürler

merhaba;
boş bir modüle;

sub kaydet()
application.screenupdating = false
on error resume next
sonsatir = range("a65536").end(xlup).row + 1
cells(sonsatir, 1) = cells(1, 1)
application.screenupdating = true
end sub

kodları ekleyin ve bir butona bağlayarak deneyin.
Iyi çalışmalar.

çok teşekkür ederim çook sağolun 2 haftadır uğraştığım olayı 2 dk da çözdünüz.

 

[klevera]

acaba bir sorum daha olsa cvplarmısınız.

bir butona silme işlemi yapması icin şu kodları atadım. içeriği silerken formulleri de siliyor. formulleri silmeden içerik deki yazıyı silmek mümkün müdür.

Sub Sayfa1_Düğme29_Tıklat()
cls = MsgBox("Alanlar temizlensinmi?", vbYesNo)
If cls = vbYes Then Range("F3:F22").ClearContents
If cls = vbYes Then Range("G3:G22").ClearContents
End Sub

 

[muygun]

Merhaba;
Bunun için ya formüllerinizi makro ya dönüştürmek yada;
örn:
=eğer(A1=1;"";formülünüz)
Gibi formüllerinize bir hücre değerini denetleyecek bir ekleme yapın. Sonrada makro ile bu tek hücre değerini silin yada yazın. Böylece formüller yapması gerekeni yapar yada boş değer verir.
İyi çalışmalar.