-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Tabloya belli sayıda formülün uygulanması
- Konbuyu başlatan Erdal
- Başlangıç tarihi
- Katılım
- 1 Mart 2005
- Mesajlar
- 22,239
- Excel Vers. ve Dili
- Win7 Home Basic TR 64 Bit
Ofis-2010-TR 32 Bit
Aşağıdaki kodları deneyiniz.
Kod:
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- Katılım
- 25 Mayıs 2005
- Mesajlar
- 44
- Excel Vers. ve Dili
- Excel 2007 - Türkçe
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
-----
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
Altın Üye
- Katılım
- 23 Ekim 2006
- Mesajlar
- 1,057
- Excel Vers. ve Dili
- Ev: 2021 - Türkçe 32 Bit
İşyeri: 2016 - Türkçe 64 Bit
sn orion 2
ilginiz için teşekkür ederim. Şöyle bir problem oluştu rakamlar değiştiğinde her seferinde kodları çalıştırmak için alt+f11 yapıp run diyorum. Bunun bir kolayı varmı yani herhangi bir değer değiştiğinde kodlar otomatik olarak çalışsın.
sn cout(h)ane
sizin yazmış olduğunuz kodlar ise tam olarak çözdü sadece kodları çalıştırınca c sütun mavi renk oluyor bunu önleyebilirmiyiz. Hiçbir renk olmasın.
İkinizede ilginiz ve alakanız için teşekkür ederim
ilginiz için teşekkür ederim. Şöyle bir problem oluştu rakamlar değiştiğinde her seferinde kodları çalıştırmak için alt+f11 yapıp run diyorum. Bunun bir kolayı varmı yani herhangi bir değer değiştiğinde kodlar otomatik olarak çalışsın.
sn cout(h)ane
sizin yazmış olduğunuz kodlar ise tam olarak çözdü sadece kodları çalıştırınca c sütun mavi renk oluyor bunu önleyebilirmiyiz. Hiçbir renk olmasın.
İkinizede ilginiz ve alakanız için teşekkür ederim
Erdal
Altın Üye
- Katılım
- 23 Ekim 2006
- Mesajlar
- 1,057
- Excel Vers. ve Dili
- Ev: 2021 - Türkçe 32 Bit
İşyeri: 2016 - Türkçe 64 Bit
sn orion 2, sn cout(h)ane
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.
Sn cout(h)ane sizin yazmış olduğunuz kodları çalıştırdığımda ise aynı tamsayı sorunuyla karşılaşıyorum. Birde benim çalışmamda E1 hücresi değerini formüller sonucunda alıyor. Fakat sizin kodlarınızın çalışması için E1 hücresine elle değer girip enter demem gerekiyor. Yani E1 hücresi formüller sonucu otomatik olarak değiştiğinde kodlar çalışmıyor.
Başınızı ağrıtıyorum ama yardımcı olabilirmisiniz acaba. Şimdiden teşekkürler
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.
Sn cout(h)ane sizin yazmış olduğunuz kodları çalıştırdığımda ise aynı tamsayı sorunuyla karşılaşıyorum. Birde benim çalışmamda E1 hücresi değerini formüller sonucunda alıyor. Fakat sizin kodlarınızın çalışması için E1 hücresine elle değer girip enter demem gerekiyor. Yani E1 hücresi formüller sonucu otomatik olarak değiştiğinde kodlar çalışmıyor.
Başınızı ağrıtıyorum ama yardımcı olabilirmisiniz acaba. Şimdiden teşekkürler
- Katılım
- 1 Mart 2005
- Mesajlar
- 22,239
- Excel Vers. ve Dili
- Win7 Home Basic TR 64 Bit
Ofis-2010-TR 32 Bit
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
Altın Üye
- Katılım
- 23 Ekim 2006
- Mesajlar
- 1,057
- Excel Vers. ve Dili
- Ev: 2021 - Türkçe 32 Bit
İşyeri: 2016 - Türkçe 64 Bit
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 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ı?
- Katılım
- 1 Mart 2005
- Mesajlar
- 22,239
- Excel Vers. ve Dili
- Win7 Home Basic TR 64 Bit
Ofis-2010-TR 32 Bit
E1 hücresine bir rakam giriniz.
Ekli dosyayı inceleyiniz.
Kod:
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