Userform ile Formül içeren hücreleri kopyalama

[fatihbozkurt58]

Excelde oluşturduğum tabloda "G4" ve "E4" hücrelerinde formüller var. Userform üzerinden veri girişi yaparak "KAYDET" butonuna bastığımda "G4" ve "E4" hücrelerindeki formülleri yeni kayıt girişlerinin yapıldığı alt satıra yani bir alt satırda ki "G5" ve "E5" hücrelerine kopyalanmasını istiyorum. Dosya şablonumu ekte gönderdim yardımlarınızı rica ediyrum.

 

[Huseyinkis]

Excelde oluşturduğum tabloda "G4" ve "E4" hücrelerinde formüller var. Userform üzerinden veri girişi yaparak "KAYDET" butonuna bastığımda "G4" ve "E4" hücrelerindeki formülleri yeni kayıt girişlerinin yapıldığı alt satıra yani bir alt satırda ki "G5" ve "E5" hücrelerine kopyalanmasını istiyorum. Dosya şablonumu ekte gönderdim yardımlarınızı rica ediyrum.

kodları aşağıdaki gibi denermisiniz.

Private Sub CommandButton3_Click()
Worksheets("Sayfa1").Select
Range("C4").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("C4").Value = "" Then
Range("C4").Value = 1
Range("C4").Select
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
End If
ActiveCell.Offset(0, 1).Value = ComboBox1
ActiveCell.Offset(0 - 1, 2).Copy Destination:=ActiveCell.Offset(0, 2)
ActiveCell.Offset(0, 3).Value = TextBox1
ActiveCell.Offset(0 - 1, 4).Copy Destination:=ActiveCell.Offset(0, 4)
ActiveCell.Offset(0, 5).Value = TextBox2

aciklama = "Kayıt İşlemi Başarıyla Tamamlandı"
dugme = vbOKOnly + vbInformation + vbDefaultButton1

baslik = "KAYIT"


MsgBox aciklama, dugme, baslik
Unload UserForm1


End Sub

 

[Murat OSMA]

Formülleri şu şekilde değiştirip deneyiniz;

E4 hücresine yazın ve aşağıya doğru çekin...

=EĞER(C4="";"";D4*2)

G4 hücresine yazın ve aşağıya doğru çekin...

=EĞER(E4="";"";E4*5)

 

[fatihbozkurt58]

Çok teşekkür ediyorum kodları söylediğiniz şekilde değiştirip uygaladığımda istediğim şey oldu. İyi çalışmalar