makro yaparak bölme işlemi

[hakan666]

Günaydın arkadaşlar,

Makroda Bölme işlemi yapmak istiyorum.

Analiz Raporu (€) adındaki sayfada E11 den E66 hücresi arasında bulunan
bütün rakamları x6 hücresindeki sayıya bölmesini istiyorum. Ancak E11 ve E66 aralığından bulunan =analiz1!$P$64 adlı formülleri bozmadan yapılabilir mi?

Not:=analiz1!$P$64 formülü başka bir makroyla geliyor.

daha açıklayıcı olursak E11 hücresindeki =analiz1!$P$64/$x$6 makroyla nasıl sağlarız?

Şimdiden teşekkürler...

 

[YUSUF44]

Formül sonucu hangi hücrede olacak ki?

 

[hakan666]

yine aynı hücrede olmasını istiyorum.

 

[hakan666]

yani e11 hücresinde

 

[YUSUF44]

Varsa öyle bir şey ben de öğrenmek isterim. Gerçekten merak ettim. Bu sitede çok olmazlar olduruluyor, bu da olur mu acaba!

 

[hakan666]

aşağıdaki gibi bir makro buldum fakat ortada formul diye bir şey kalmıyor.birde e.Value / 10 derken
sayıyı kaça bölmek istiyorsak ona bölüyor. Benim istediğim hücrenin içindeki formülü istediğim bir sütunu seçerek bölmesi.



Sub deneme()
For Each e In ActiveSheet.Range("E11:E14")
Range(e.Address) = e.Value / 10
Next
End Sub

 

[numan şamil]

aşağıdaki gibi bir makro buldum fakat ortada formul diye bir şey kalmıyor.birde e.Value / 10 derken
sayıyı kaça bölmek istiyorsak ona bölüyor. Benim istediğim hücrenin içindeki formülü istediğim bir sütunu seçerek bölmesi.



Sub deneme()
For Each e In ActiveSheet.Range("E11:E14")
Range(e.Address) = e.Value / 10
Next
End Sub

Merhaba
Sub deneme()
baslangıc = Application.InputBox("bölen kısmına yazılacak hücreyi seçiniz.")
If baslangıc = False Then
MsgBox "İşlemi iptal ettiniz"
Exit Sub
End If

For Each e In ActiveSheet.Range("E11:E14")
Range(e.Address) = e.Value / Range(baslangıc)
Next
End Sub
Şeklinde denermisiniz
Inputbox ' x6 yazıp tamam deyiniz

 

[hakan666]

cevabınız için çok teşekkür ederim ancak yazdığınız makro hata mesajı veriyor.veya ben yanlış bir şeyler yapıyorum.

Mesajda şöyle yazıyor.

Compile error:
veriable not defined

Sub deneme()

Sheets("Analiz Raporu (€)").Select
baslangıc = Application.InputBox("x6")
If baslangıc = False Then
MsgBox "İşlemi iptal ettiniz"
Exit Sub
End If

For Each e In ActiveSheet.Range("E11:E14")
Range(e.Address) = e.Value / Range(baslangıc)
Next
End Sub

 

[numan şamil]

cevabınız için çok teşekkür ederim ancak yazdığınız makro hata mesajı veriyor.veya ben yanlış bir şeyler yapıyorum.

Mesajda şöyle yazıyor.

Compile error:
veriable not defined

Sub deneme()

Sheets("Analiz Raporu (€)").Select
baslangıc = Application.InputBox("x6")
If baslangıc = False Then
MsgBox "İşlemi iptal ettiniz"
Exit Sub
End If

For Each e In ActiveSheet.Range("E11:E14")
Range(e.Address) = e.Value / Range(baslangıc)
Next
End Sub

Merhaba
baslangıc = Application.InputBox("x6")
Kodda kırmızı yeri eklemeyeceksiniz
baslangıc = Application.InputBox("bölen kısmına yazılacak hücreyi seçiniz.")
Şeklinde aynen kalacak

Butona bastığınızda çıkan pencereye hangi hücredeki sayıya bölecekseniz o hüçreyi yazacaksınız
Ekli dosyayı incelermisiniz
Düzenle butonuna bastığınızda çıkan pencereye H1 yazıp tamama basın ve sonucu gözlemleyiniz

 

[hakan666]

Teşekkür ederim.Gerçekten çok güzel olmuş.Benim bir sorum daha olacak. gönderdiğiniz excel tablosunda E11 hücresinde formül varsa bu formüle dokunmadan bölme işlemini yine e11 hücresi içinde nasıl gerçekleştirebiliriz.Gönderdiğiniz ekte değişiklik yaparak gönderiyorum.

Saygılarımla

 

[numan şamil]

Teşekkür ederim.Gerçekten çok güzel olmuş.Benim bir sorum daha olacak. gönderdiğiniz excel tablosunda E11 hücresinde formül varsa bu formüle dokunmadan bölme işlemini yine e11 hücresi içinde nasıl gerçekleştirebiliriz.Gönderdiğiniz ekte değişiklik yaparak gönderiyorum.

Saygılarımla

Merhaba
aynı hücre içerisinde veri girişi veya herhangi işlem yaptığınızda formüller silinir
orjinal dosyanızda formüllerin (silinen) yaptığı işi yapan makro yazılabilir
orjinal dosyanızın bire bir örneğini gönderirseniz hangi sutunda ve hangi aralıkta belirtip formülleri elle yazıp gönderirseniz makro yazabiliriz
Ekli dosyayada önce aktar butonuna basıp sonra düzenle butonuna basınıp sonucu gözlemleyin
Hatta bu işi sizde yapabilirsiniz
Excel dosyanızı açıp 2003 için Araçlar/makrolar/makro kaydet seçip
Formül yazılacak hücreyi seçip formülü yazdıktan sonra enterleyip tekrar Araçlar/makrolar/kaydı durdur şeçip sonra kod bölümünü açtığınızda yeni bir modül eklendiğini göreceksiniz

ekli dosyada modül1 de

Sub hesapla1()
Application.ScreenUpdating = False
Sheets("Sayfa1").Select
With Range("E11:E14")
.Formula = "=IF(ISBLANK(Sayfa2!R[-10]C[-4]),"""",Sayfa2!R[-10]C[-4])"
.Value = .Value
End With
Application.ScreenUpdating = True
End Sub

yeni modülde oluşturdunuz kodlardaki "= ile başlayan satırı
Yukarıdaki kodlarda
Kırmızı ile yazan bölümün üstüne yapıştırıp deneyebilirsiniz
Veri aralığını
With Range("E11:E14")
bölümünü değiştirerek seçebilirsiniz

 

[hakan666]

Gerçekten çok teşekkür ederim. Bu bilgiler çok işime yaradı. İyiki böyle bir site var iyiki böyle değerli ve bilgiyi paylaşan arkadaşlar var.

Saygılarımla

 

[numan şamil]

Gerçekten çok teşekkür ederim. Bu bilgiler çok işime yaradı. İyiki böyle bir site var iyiki böyle değerli ve bilgiyi paylaşan arkadaşlar var.

Saygılarımla

Kolay gelsin

 

[denemetor]

Makroyu soyle degistirsek is gormez mi acaba?

Sub deneme()
baslangic = Application.InputBox("Hucre seciniz")
For Each e In ActiveSheet.Range("E11:E14")
e.Formula = e.Formula & "/" & baslangic
Next
End Sub

 

[hakan666]

tam olarak istediğim buydu.Tekrar çok teşekkür ederim.Emeğinize sağlık.

Saygılarımla

 

[numan şamil]

Makroyu soyle degistirsek is gormez mi acaba?

Sub deneme()
baslangic = Application.InputBox("Hucre seciniz")
For Each e In ActiveSheet.Range("E11:E14")
e.Formula = e.Formula & "/" & baslangic
Next
End Sub

Merhaba
Sayenizde bilgimizi arttırmış olduk
Teşekkürler