Eğer formülünü makroya çevirme yardım

[woodteacher]

=EĞER(X10="";"";X10*Y10)

Sonucu ( Z:10 ) hücresine yazacak..

Arkadaşlar bu formülü makroya çevirebilirmiyiz...

 

[Merhum İdris SERDAR]

.

Soru başlığınızı değiştirmeniz gerekir.

Herkes, "Formül yardım" yazarsa, Forumun halini bir düşünün.

.

 

[woodteacher]

sn.yurttas başlığı değiştirebiliyormuyuzki biz..
uygun bir başlığa çevirebilirseniz , çok sevinirim..
Teşekkür ederim..

 

[Merhum İdris SERDAR]

sn.yurttas başlığı değiştirebiliyormuyuzki biz..
uygun bir başlığa çevirebilirseniz , çok sevinirim..
Teşekkür ederim..

.

O da sizin ödeviniz olsun. Forumda bir yerde yazıyor. Arayıp bulacaksınız. :biggrin:


.

 

[woodteacher]

sn.yurttas hallettim.teşekkür ederim ilginiz için..
sanırım ben ödevimi yaptım , şimdi sizden ricam bu konuda yardımcı olmanız..
hakkettim sanırım..

 

[Merhum İdris SERDAR]

.

Şimdi de bu formül ne diyor?

=EĞER(X10="";"";EĞER(X10="";"";X10*Y10))

açıklayabilir misiniz? Neden X10 hücresini iki kere boşluk testinden geçiriyorsunuz? Bir kere yetmiyor mu?

Sonra sonuç nereye yazılacak?


.

 

[woodteacher]

Sn.yurttas günaydın
doğru diyorsunuz , gözümden kaçmış formül...

Sorumu düzelttim...

=EĞER(X10="";"";X10*Y10) formülünü otomatik olarak
( Z:10 ) hücresine yazacak makro formülü lazım.

Teşekkürler ederim...

 

[Erkan2003]

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
Application.EnableEvents = False
If [X10] ="" Then
[Z10] = ""
Else
[Z10] = [X10]*[Y10]
End If
Son:
Application.EnableEvents = True
End Sub

Korhan beyin benim sorunumu çözdüğü yöntemi buraya uyguladım

 

[woodteacher]

Sn.Erkan2003 öncelikle teşekkür ederim yardımın için....
Formülü tek başına kullandığımda çalıştı bir sorun vermedi , fakat
Excel çalışmasında aşağıdaki formülde var , bununla çakıştı hata verdi

Private Sub Worksheet_Change(ByVal Target As Range)
Dim S1, S2, BUL, Satir

If Intersect(Target, Range("B3:B" & Rows.Count)) Is Nothing Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub

If Target <> "" Then
Set S1 = Sheets("SİPARİŞ FORMU")
Set S2 = Sheets("ÜRÜN GRUBU")

Set BUL = S2.Range("A:A").Find(Target, , , xlWhole)
If Not BUL Is Nothing Then
Cells(Target.Row, "C") = BUL.Offset(0, 1)
Cells(Target.Row, "Y") = BUL.Offset(0, 2)
End If
Else
Range("C" & Target.Row & ":Y" & Target.Row).ClearContents
End If
End Sub

 

[woodteacher]

Korhan hocam desteğinizi bekliyorum.....

 

[woodteacher]

yardım arkadaşlar

 

[woodteacher]

yardım arkadaşlar

 

[Huseyinkis]

yardım arkadaşlar

Merhaba anladığım kadari ile sayfanınChange olayına 2 formul birden koymuşsunuz düzeltmek için ekteki gibi kullanınız.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
Application.EnableEvents = False
If [X10] ="" Then
[Z10] = ""
Else
[Z10] = [X10]*[Y10]
End If

Son:
Application.EnableEvents = True

Dim S1, S2, BUL, Satir

If Intersect(Target, Range("B3:B" & Rows.Count)) Is Nothing Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub

If Target <> "" Then
Set S1 = Sheets("SİPARİŞ FORMU")
Set S2 = Sheets("ÜRÜN GRUBU")

Set BUL = S2.Range("A:A").Find(Target, , , xlWhole)
If Not BUL Is Nothing Then
Cells(Target.Row, "C") = BUL.Offset(0, 1)
Cells(Target.Row, "Y") = BUL.Offset(0, 2)
End If
Else
Range("C" & Target.Row & ":Y" & Target.Row).ClearContents
End If
End Sub

 

[woodteacher]

Sn.Huseyinkis
Yardımlarınız için çok teşekkürler ederim , çok yardımcı oldunuz.

Sormak istediğim birşey var.Formüle araya aşağıdaki kelimeleri eklemişsiniz.
Benzer şekilde aynı formül grubuna , 3 cü bir formül eklemek istesem gine araya bu grubu ekliyip
sonramı formülü yazmam gerekiyor..

Son:
Application.EnableEvents = True

 

[Huseyinkis]

Sn.Huseyinkis
Yardımlarınız için çok teşekkürler ederim , çok yardımcı oldunuz.

Sormak istediğim birşey var.Formüle araya aşağıdaki kelimeleri eklemişsiniz.
Benzer şekilde aynı formül grubuna , 3 cü bir formül eklemek istesem gine araya bu grubu ekliyip
sonramı formülü yazmam gerekiyor..

Son:
Application.EnableEvents = True

Hayır onlar zaten sizin kodlarda vardı. Change olayına baska kod eklemek istiyorsanız bu işlem biraz karışık olabilir. Oyuzden siz kodları ayrı ayrı verin bir bakalım.