Formülden Makroya!

[akhsahbaz]

Arkadaşlar öncelikle merhaba. Yardımcı olmanızı rica ettiğim konu, elimde 4 sütunun hücrelerine uygulamış olduğum formüller var. Formüller 3. satırdan başlayıp 65536 ya kadar devam ediyor. Ben aşağıda 3.satırdaki formülleri veriyorum;
=EĞER(Form!H3="Kredi Kartı";Form!I3;"0") A3 Hücresi
=EĞER(A3=0;"";EĞER(Form!H3="Kredi Kartı";(Form!G3*-1)/Form!J3;" ")) B3 Hücresi
=EĞER(GÜN(Form!A3)>DÜŞEYARA(A3;Form!AB:AC;2;YANLIŞ);TARİH(YIL(Form!A3);AY(Form!A3)+1;GÜN(1));TARİH(YIL(Form!A3);AY(Form!A3);GÜN(1))) C3 Hücresi
=TARİH(YIL(C3);AY(C3)+Form!J3;GÜN(C3)) D3 Hücresi
Bu formüllerin olduğu sayfaya bir buton yardımı ile geçiyorum. Bu formüllerin yerini tutacak makro lazım. İlginiz ve yardımlarınız için şimdiden teşekkür ederim.

 

[isfa5878]

merhaba..

formüllerle aram iyi olmadığından ekte ki dosyayı gönderiyorum işinize yarar umarım...
FORM sayfasına veri girildikçe sayfa1 de formülleri kopyalayıp
alt satıra yazar...

 

[akhsahbaz]

Sn.isfa5878 öncelikle cevabınız ve çabalarınız için çok teşekkür ederim. Gerçektende cevap vermeniz bile yeter. Sanırım sorunumu makro kaydet yöntemiyle yaptınız. Ama her hücreye veri girdikten sonra sayfalar arasında bir kaç defa geçiş yapıyor. Ve birde form sayfasında 2 satıra giriş yapsam bile diğer sayfada 9-10 satır girişi yapılıyor. Bunu sorunu gidere bilirmiyiz?

 

[isfa5878]

işinize yararsa kodları form sayfasındaki button a aldım..

form sayfasında bütün işlemlerinizi yapar işiniz bitince buton a basarsınız
her veri girişinde gerekmez..

 

[akhsahbaz]

Evet butona alınca en azından her hücreye girişten sonraki durumu yaşamam. Teşekkür ederin Sn.isfa5878

 

[akhsahbaz]

Bu makro her botona tıklama da diğer sayfaya 1 satır formül yerleştiriyor. Butona tıkladığımda tüm satırlarıda formülleri geçirebilirmiyiz?

Private Sub CommandButton1_Click()
For Each alan In Sheets("Sayfa1").Range("a3")
For i = 3 To Sheets("Sayfa1").[a65000].End(3).Row
If Sheets("Sayfa1").Range("a" & i) <> "" Then
alan.Copy
Sheets("Sayfa1").Range("a" & i + 1).PasteSpecial
End If
Next
Next
Application.DataEntryMode = False
For Each alan In Sheets("Sayfa1").Range("b3")
For i = 3 To Sheets("Sayfa1").[a65000].End(3).Row
If Sheets("Sayfa1").Range("a" & i - 1) <> "" Then
alan.Copy
Sheets("Sayfa1").Range("b" & i).PasteSpecial
End If
Next
Next
Application.DataEntryMode = False
For Each alan In Sheets("Sayfa1").Range("c3")
For i = 3 To Sheets("Sayfa1").[a65000].End(3).Row
If Sheets("Sayfa1").Range("a" & i - 1) <> "" Then
alan.Copy
Sheets("Sayfa1").Range("c" & i).PasteSpecial
End If
Next
Next
Application.DataEntryMode = False
For Each alan In Sheets("Sayfa1").Range("d3")
For i = 3 To Sheets("Sayfa1").[a65000].End(3).Row
If Sheets("Sayfa1").Range("a" & i - 1) <> "" Then
alan.Copy
Sheets("Sayfa1").Range("d" & i).PasteSpecial
End If
Next
Next
Application.DataEntryMode = False

End Sub

 

[isfa5878]

merhaba...
yukardaki kod u a&#351;a&#287;&#305;dakiyle de&#287;i&#351;tirin.. sayfa ge&#231;i&#351;i olmayacakt&#305;r...



Private Sub CommandButton1_Click()
Dim NoG As Long
NoG = Sheets("Sayfa1").Range("a65536").End(xlUp).Row
Sheets("Sayfa1").Range("A3:d3").AutoFill Destination:=Sheets("Sayfa1").Range("a3:d" & NoG + 1)
End Sub



Range("a3:d" & NoG + 1) buradaki "+1" i nekadar y&#252;kseltirseniz o kadar sat&#305;ra form&#252;l&#252; ekler

bir &#246;rnek dosya ekleseniz belki yard&#305;m edebilirim.

 

[akhsahbaz]

Sn.isfa5878 yardımınız ve ilginiz için tekrar tekrar teşekkür ederim.

Range("a3:d" & NoG + 1) buradaki "+1" i nekadar yükseltirseniz o kadar satıra formülü ekler

Sanki benim düşündükleimi anlarcasına size sormam gerken +1 ide açıklamışsınız. Sizden son bir ricam olucak. +1 yerine ne kadar satır formül yerleştireceğimizi
verileri aldığımız sayfadaki A sütununun son dolu olan hücre değerine göre nasıl ayarlaya biliriz.

 

[isfa5878]

Private Sub CommandButton1_Click()
Akshbz = Sheets("Sayfa2").[a65536].End(3).Row - Sheets("Sayfa1").[a65536].End(3).Row * 1

Dim NoG As Long
NoG = Sheets("Sayfa1").Range("a65536").End(xlUp).Row
Sheets("Sayfa1").Range("A3:d3").AutoFill Destination:=Sheets("Sayfa1").Range("a3:d" & NoG + Akshbz * 1)
End Sub

 

[akhsahbaz]

Sn.isfa5878 kod &#231;al&#305;&#351;&#305;yor.Yard&#305;mlar&#305;n&#305;z i&#231;in tekrar te&#351;ekk&#252;r ederim.