Tabloya belli sayıda formülün uygulanması

[Erdal]

merhabalar
Ekteki dosyada sorumu anlatmaya çalıştım. Eğer yardımcı olabilirseniz memnun olurum. Şimdiden emekleriniz için teşekkürler.

 

[Erdal]

yardım edecek yokmu acaba?

 

[Orion1]

Aşağıdaki kodları deneyiniz.

Sub formul_olustur()
Dim i, k As Long
Sheets("Sayfa1").Select
If Range("E1").Value < 1 Then Exit Sub
For i = 1 To 31
    Range("C" & i).Value = Range("A" & i).Value
Next i
For k = 31 To 31 - Range("E1").Value + 1 Step -1
    Range("C" & k).Formula = "=$A$" & k & "-$D$1"
Next k
MsgBox "İşlem tamamdır..!!"
End Sub

 

[cout(h)ane]

kendi kendine çalışan yöntem

Merhaba,

Aşağıdaki kodları sayfanın kod sayfasına yazarsanız, e1 hücresi değiştirildiğinde isteğiniz otomatik olarak gerçekleşecektir.

------
Private Sub Worksheet_Change(ByVal Target As Range)

If Nothing Is Intersect(Target, [e1]) Then Exit Sub

Cells(2, 3).EntireColumn.Clear
ss = [a65000].End(3).Row
k = [e1].Value
t = 1

For j = ss To 1 Step -1

Cells(j, 3) = Cells(j, 1)

If t <= k Then
Cells(j, 3).Formula = "=$A$" & j & "-$D$1"
Cells(j, 3).Interior.ColorIndex = 5
End If

t = t + 1

Next

End Sub
-----

 

[Erdal]

sn orion 2
ilginiz i&#231;in te&#351;ekk&#252;r ederim. &#350;&#246;yle bir problem olu&#351;tu rakamlar de&#287;i&#351;ti&#287;inde her seferinde kodlar&#305; &#231;al&#305;&#351;t&#305;rmak i&#231;in alt+f11 yap&#305;p run diyorum. Bunun bir kolay&#305; varm&#305; yani herhangi bir de&#287;er de&#287;i&#351;ti&#287;inde kodlar otomatik olarak &#231;al&#305;&#351;s&#305;n.
sn cout(h)ane
sizin yazm&#305;&#351; oldu&#287;unuz kodlar ise tam olarak &#231;&#246;zd&#252; sadece kodlar&#305; &#231;al&#305;&#351;t&#305;r&#305;nca c s&#252;tun mavi renk oluyor bunu &#246;nleyebilirmiyiz. Hi&#231;bir renk olmas&#305;n.
&#304;kinizede ilginiz ve alakan&#305;z i&#231;in te&#351;ekk&#252;r ederim

 

[Erdal]

sn orion 2, sn cout(h)ane
yazm&#305;&#351; oldu&#287;unuz kodlar&#305; kendi &#231;al&#305;&#351;mama uyarlad&#305;&#287;&#305;mda baz&#305; s&#305;k&#305;nt&#305;lar olu&#351;tu.
sn orion 2 sizin kodlar&#305; daha evvel s&#246;yledi&#287;im gibi otomatik olarak &#231;al&#305;&#351;t&#305;ramad&#305;m. Birde tablodaki de&#287;erler tamsay&#305; olsalar dahi virg&#252;lden sonra 2 haneli olmal&#305;.E&#287;er A s&#252;tunundaki de&#287;er tamsay&#305;ysa ve o h&#252;creye form&#252;l uygulanm&#305;y&#305;rsa A s&#252;tunundaki de&#287;er c s&#252;tununa virg&#252;ls&#252;z olarak aktar&#305;l&#305;yor.
Sn cout(h)ane sizin yazm&#305;&#351; oldu&#287;unuz kodlar&#305; &#231;al&#305;&#351;t&#305;rd&#305;&#287;&#305;mda ise ayn&#305; tamsay&#305; sorunuyla kar&#351;&#305;la&#351;&#305;yorum. Birde benim &#231;al&#305;&#351;mamda E1 h&#252;cresi de&#287;erini form&#252;ller sonucunda al&#305;yor. Fakat sizin kodlar&#305;n&#305;z&#305;n &#231;al&#305;&#351;mas&#305; i&#231;in E1 h&#252;cresine elle de&#287;er girip enter demem gerekiyor. Yani E1 h&#252;cresi form&#252;ller sonucu otomatik olarak de&#287;i&#351;ti&#287;inde kodlar &#231;al&#305;&#351;m&#305;yor.
Ba&#351;&#305;n&#305;z&#305; a&#287;r&#305;t&#305;yorum ama yard&#305;mc&#305; olabilirmisiniz acaba. &#350;imdiden te&#351;ekk&#252;rler

 

[Orion1]

sn orion 2,yazmış olduğunuz kodları kendi çalışmama uyarladığımda bazı sıkıntılar oluştu.
sn orion 2 sizin kodları daha evvel söylediğim gibi otomatik olarak çalıştıramadım. Birde tablodaki değerler tamsayı olsalar dahi virgülden sonra 2 haneli olmalı.Eğer A sütunundaki değer tamsayıysa ve o hücreye formül uygulanmıyırsa A sütunundaki değer c sütununa virgülsüz olarak aktarılıyor.
Başınızı ağrıtıyorum ama yardımcı olabilirmisiniz acaba. Şimdiden teşekkürler

Merhaba.
C sütununu biçimlendiriniz.
Biçim==>hücreler==>Katogori'den Sayı'yı seçiniz.Ondalık basamak sayısını 2 seçiniz.
Diğer sorununuz için : hangi sütundaki hücrelerde değişiklik yapılınca kodlar otomatik çalışsın istiyorsunuz?

 

[Erdal]

merhaba
E1 h&#252;cresine bir de&#287;er girdi&#287;imde veya form&#252;ller sonucunda E1 h&#252;cresi yeni bir de&#287;er ald&#305;&#287;&#305;nda c s&#252;tunu kendini yenilemiyor bende ALT+F11 yap&#305;p run dedi&#287;imde C s&#252;tunu kendini yeniliyor. Bu otomatik yap&#305;lamazm&#305;?

 

[Orion1]

merhaba
E1 hücresine bir değer girdiğimde veya formüller sonucunda E1 hücresi yeni bir değer aldığında c sütunu kendini yenilemiyor bende ALT+F11 yapıp run dediğimde C sütunu kendini yeniliyor. Bu otomatik yapılamazmı?

E1 hücresine bir rakam giriniz.
Ekli dosyayı inceleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i, k As Long
If Intersect(Target, [E1]) Is Nothing Then Exit Sub
If Range("E1").Value < 1 Then Exit Sub
For i = 1 To 31
    Range("C" & i).Value = Range("A" & i).Value
Next i
For k = 31 To 31 - Range("E1").Value + 1 Step -1
    Range("C" & k).Formula = "=$A$" & k & "-$D$1"
Next k
End Sub

 

[Erdal]

sn orion 2
ba&#351;&#305;n&#305;z&#305; a&#287;r&#305;tt&#305;m kusura bakmay&#305;n &#231;ok te&#351;ekk&#252;rler