hücreye formül göndermek

[fedeal]

Private Sub CommandButton1_Click()
On Error Resume Next

Son_Dolu_Satir = Sheets("DATA").Range("A65536").End(xlUp).Row

Bos_Satir = Son_Dolu_Satir + 1

Sheets("DATA").Range("A" & Bos_Satir).Value = _
Application.WorksheetFunction.Max(Sheets("DATA").Range("A:A")) + 1

Sheets("DATA").Range("C" & Bos_Satir).Value = TextBox2 * 1
Sheets("DATA").Range("D" & Bos_Satir).Value = ComboBox1.Text
Sheets("DATA").Range("E" & Bos_Satir).Value = TextBox3.Text

Else

End Sub

CommandButton1 e basınca Sheets("DATA").Range("P" & Bos_Satir).Value =
son boş P hücresine =c2*g2 formülünü gönderebilirmiyim. bu arada c 2 satır sayısı oldugu için her gönderimde degişmeli

 

[hsayar]

2 boşsatırımı temsil ediyor.

 

[fedeal]

hayır c2 derken 2 satır sayısı yani 2. satırsa c2 3. satırsa c3 olmalı bunu sayfa üzerine yazıp kopyalarsam calışmanın boyutu büyüyor.onun için böyle birşey mümkünmü diye düşündüm. bu degerleri carpıp yollasamda olmuyor cünkü stok oldugu için c2 degişken satışlarda düşüp alışlarda yükselcek

 

[hsayar]

kod yapınızı tam anlayamdım, aşağıdaki örnekten uyarlayınız.

Sub formulekle()
Dim csf As Worksheet: Set csf = ThisWorkbook.Worksheets("sayfa1")
sat = 1
With csf
  .Range("c1").Formula = "= " & .Range("A" & sat).Address(False, False) & "*" & .Range("B" & sat).Address(False, False)
End With
Set csf = Nothing
End Sub

yada bunları deneyin kodlarınız yarım verdiğiniz için çözüm bu kadar oluyor

Private Sub CommandButton1_Click()
On Error Resume Next
Dim csf As Worksheet: Set csf = ThisWorkbook.Worksheets("data")
With csf
'.................
  Son_Dolu_Satir = .Range("A65536").End(xlUp).Row
  Bos_Satir = Son_Dolu_Satir + 1
  .Range("A" & Bos_Satir).Value = Application.WorksheetFunction.Max(.Range("A:A")) + 1
  .Range("C" & Bos_Satir).Value = TextBox2 * 1
  .Range("D" & Bos_Satir).Value = ComboBox1.Text
  .Range("E" & Bos_Satir).Value = TextBox3.Text
  .Range("P" & Bos_Satir).Value = .Formula = "= " & .Range("c" & Bos_Satir).Address(False, False) & "*" & .Range("g" & Bos_Satir).Address(False, False)
Else
'.........

End With
'...............
Set csf = Nothing
End Sub

 

[Ayhan Ercan]

Merhaba,

2.satırsa c2, 3.satırsa c3 demişsiniz. Hangi satırda olunduğu nerden bilinecek?

 

[hsayar]

eğer fomuül değilde sonucu görmek istiyorsanız;
.Range("d1").Value = .Range("A" & sat).Value * .Range("B" & sat).Value

kullanınız.

 

[Korhan Ayhan]

Selamlar,

Sanırım aşağıdaki şekilde çözüme ulaşabilirsiniz.

[COLOR=black]Sheets("DATA").Range("P" & Bos_Satir).Formula = "=C" & Bos_Satir & "*G" & Bos_Satir

[/COLOR]

 

[fedeal]

örnek dosya ekte

 

[Ayhan Ercan]

Sheets("DATA").Range("P" & Bos_Satir).Value= Cells(Bos_Satir, 3) * Cells(Bos_Satir, 7)

 

[fedeal]

korhan bey cok teşekkür ederim ben örnek dosyayı hazırlarken cevabı yazmışsınız.sayın hsayar ve ayhan beyede cok teşekkür ederim.