Farklı sayfalardaki hücreleri değiştirme

Katılım
20 Eylül 2005
Mesajlar
6
Benim elimde 1,2,3,4,5,6,7,8,9,10,11,12 gibi farklı 12 excel dosyası mevcut.Bu dosyalar içinde(hepsinde aynı hücre) değişken olan c2,c3,c4 hücreleri var.Bu hücreleri değiştirmek için makro yapabilirmiyim.Yardımcı olabilirseniz sevinirim.Aramadan aradım ama arama kısmına yazdığım kelimelerle aradığıma ulaşamadım.

Herkese iyi çalışmalar
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Tam cevap için aşağıdaki soruların yanıtlayınız.

1-Bu dosyaların pcnizdeki yolu nedir?

2-Dosya isimleri nelerdir?

3-C2,C3,C4 hücreleri hangi sayfadadır?

4-Tüm dosyadaki sayfa isimleri aynımıdır.

5-C2,C3,C4 hücrelerinde değişecek değerler nereden alınacaktır.
 
Katılım
20 Eylül 2005
Mesajlar
6
1-Bu dosyaların pcnizdeki yolu nedir? D:\BÜTÇE
2-Dosya isimleri nelerdir? 1,2,3,4,5,6,7,8,9,10,11,12......Bunun gibi 38 adet dosyam mevcut

3-C2,C3,C4 hücreleri hangi sayfadadır? Bütün dosyalarda "parametre" sayfasında

4-Tüm dosyadaki sayfa isimleri aynımıdır. Hepsinde "parametre"

5-C2,C3,C4 hücrelerinde değişecek değerler nereden alınacaktır. Parametre sayfasındaki c2,c3,c4 sayfasındaki değerlerin değişmesi gerekecek.(Bu değerler 4 aylık enflasyon tahminleri)

Yapmak istediğim bu c2,c3 ve c4 deki değerleri değiştirdiğimde rapor aldığımda enflasyona göre karşılaştırma yapmak istiyorum.
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Dosyalardaki C2,C3 ve C4 hücrelerine değerlerin kodun çalıştırıldığı dosyanın A1,A2 ve A3 hücrelerinden aktarıldığını kabul edersek aşağıdaki kodu deneyin.

[vb:1:436b6e8b86]Sub degistir()
On Error Resume Next
Application.ScreenUpdating = False
deg1 = [a1]
deg2 = [a2]
deg3 = [a3]
For a = 1 To 38
Workbooks.Open Filename:="D:\Bütçe\" & a & ".xls"
sheets("parametre").[c2] = deg1
sheets("parametre").[c3] = deg2
sheets("parametre").[c4] = deg3
ActiveWorkbook.Save
ActiveWorkbook.Close
Next
MsgBox "TÜM DOSYALARDAKİ VERİLER YENİLENMİÞTİR"
End Sub[/vb:1:436b6e8b86]
 
Katılım
20 Eylül 2005
Mesajlar
6
C2 C3 VE C4 DEKİ DEÐERLERİ DEÐİÞİYOR FAKAT FORMÜL KAYBOLUYOR.FORMÜL DERKEN C2:A1 İ GÃ?STERMESİ KAYBOLUYOR.

Bu arada kendimi daha çok geliştirmem gerektiğinin de bilincindeyim ve ufkumu genişlettiğiniz için ayrıca teşekkür ederim.Basic ve makrolar konusunda birçok kitap sizin önerebileceğiniz bir kitap var mıdır?
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
C2:A1 İ GÃ?STERMESİ KAYBOLUYOR.
Kaybolması doğal çünkü hücreye formülü değil sadece değeri aktarıyor.

Kitap konusuna gelince belki kimse inanmayacak ama, ben bugüne kadar makro ve VBA ile ilgili hiç kitap incelemedim. Hatta bu eksikliğimden dolayı yaklaşık altı ay önce ENİNE BOYUNA EXCEL 2003 İLE PROGRAMLAMA isimli bir kitap aldım. Lakin bu kitabında henüz yüzünü açmadığımdan yorum yapamıyorum. Ben araştırmalarımı çoğunlukla yerli ve yabancı Excel siteleri üzerinden yapıyorum. Ama kitap önerisi ile ilgili daha önce gelen soruları aşağıdaki linkten inceleyebilirsiniz.

http://www.excel.web.tr/viewtopic.php?t=7843&highlight=excel+kitap
 
Üst