Kod ile Formül Kopyalama ??

[nihatjeoloji]

Selam

(A1) ve (A2) hüçrelerindeki formülü (B1) ve (B2) Hüçrelerine nasıl kopyalanır visual basic kodu ile


TEşekkürler

 

[nihatjeoloji]

Selam

(A1) ve (A2) hüçrelerindeki formülü (B1) ve (B2) Hüçrelerine. VE (C1) ve (C2) Hüçrelerine nasıl kopyalanır visual basic kodu ile


TEşekkürler

 

[abazya]

Sn :nihatjeoloji
Excel sayfasında sağda en üstte Yardım için soru yazın diye bölüm var arada sırada orayı kullanmaya çalış desem

Not:Bu cevabımın üsteki ile hiçbir alakası yok faydalanman için kolaylık

 

[Mahmut Bayram]

A1 hücresinde =TOPLA(A4:A5) formülü olsun
B1 hücresinde de =EÐERSAY(A4:A5;"3") olsun
a4 =3, a5= 5 olsun
VBA kodu
Range("D1").Select
ActiveCell.FormulaR1C1 = "=SUM(R[3]C[-3]:R[4]C[-3])"
Range("E1").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(R[3]C[-4]:R[4]C[-4],""3"")"
Range("E2").Select

 

[nihatjeoloji]

syn mahmut_bayram

a4 =3, a5= 5 olsun ((burayı anlamadım biraz daha açıklasanız))


A1 hücresinde =TOPLA(A4:A5) formülü olsun
bu formülü (B1) hüçresine kopyalansın


C1 hücresinde de =EÐERSAY(A4:A5;"3") olsun
bu formülü (D1) hüçresine kopyalansın

NOT:
neden kod ile istememin nedeni
3 tane sayfam var ve toplam formül sayısı (6000) civarında

 

[Mahmut Bayram]

şöyle bir çözüm işinizi görürmü
AKTİF SAYFADAKİ FORMÜLLERİ BULUP YENİ SAYFAYA LİSTELER

Sub formullistele()
Dim FormulaCells As Range, Cell As Range
Dim FormulaSheet As Worksheet
Dim Row As Integer

' Create a Range object for all formula cells
On Error Resume Next
Set FormulaCells = Range("A1").SpecialCells(xlFormulas, 23)

' Exit if no formulas are found
If FormulaCells Is Nothing Then
MsgBox "No Formulas."
Exit Sub
End If

' Add a new worksheet
Application.ScreenUpdating = False
Set FormulaSheet = ActiveWorkbook.Worksheets.Add
FormulaSheet.Name = "Formulas in " & FormulaCells.Parent.Name

' Set up the column headings
With FormulaSheet
Range("A1") = "Address"
Range("B1") = "Formula"
Range("C1") = "Value"
Range("A1:C1").Font.Bold = True
End With

' Process each formula
Row = 2
For Each Cell In FormulaCells
Application.StatusBar = Format((Row - 1) / FormulaCells.Count, "0%")
With FormulaSheet
Cells(Row, 1) = Cell.Address _
(RowAbsolute:=False, ColumnAbsolute:=False)
Cells(Row, 2) = " " & Cell.Formula
Cells(Row, 3) = Cell.Value
Row = Row + 1
End With
Next Cell

' Adjust column widths
FormulaSheet.Columns("A:C").AutoFit
Application.StatusBar = False
End Sub

 

[nihatjeoloji]

syn mahmut_bayram

konu ile ilgilendiğiniz için çok teşekkürler. fakat

bu çözüm işimi görmez (Hayır)
nedeni
bir gurub çalışmam var (SayfaA)'da ve gene bir gurub çalışmam var (SayfaB)'de
ve her sayfada inanın ki (1000) üstünde formül var

 

[bedersu]

Sayın nihatjeoloji,

Kardeş kusura bakma ama;sorularını anlayabilmemiz için bir kursa gitmemiz lazım.demişsin ki;

A1'deki formülü B1'e;C1'deki formülü D1'e vs kopyalayalım demişsin.Hemen ardından da 6000 tane formülden bahsetmişsin.senin verdiğin şekilde 6000 tane formülü sığdırmak imkansız.Benim bildiğim Excel'de 256 tane hücre var bir satırda.Senin istediğin şekilde sadece 128 formül sığar.

yok A2'dekini B2'ye vs diye devam edecek diyorsan ,nereye kadar devam ettiğini de söylemen lazım.Hem bunu makro kaydetten yapabilirsin.bir formülü kopyalayıp yapıştır,o kodu step2 kullanarak yeniden yapılandır.Bu kodların hepsinin birer örneği FORUMDA MEVCUT.

Dediğim gibi,yanlış anlama.Uğraşmak istemediğimden değil ama biraz da sen çabala ne olur.

 

[nihatjeoloji]

syn bedersu

ilk sorduğum sorunun cevabı varsa oky yoksa genede oky

pardon bu arada ben her zaman excelde arıyorum bulamadisem soruyorum inan ki

 

[VisualBasic]

Sub Formüller()
    Range("A1") = "=1+1 &"" Ben A1'deki formülüm"""
    Range("B1") = "=1+1 &"" Ben B1'deki formülüm"""
    Range("A2:B2").FillDown
End Sub