100 tane hücrem var hepsin hücre adı elektrik birim fiyat

[ahmet114]

1000 tane hücrem var hepsin hücre adı elektrik birim fiyatı: 188 yazıyor ben bunlara tek tek formul uygulamadan sadece bir yere birim fiyatı girdiğimde bu 1000 hücrede değişebilirmi ....not: hücrelere tek tek formul uygulamadan nasıl yapabilirim

 

[birol_mumcu]

merhaba; :hey:
örnek dosya yollarsanız daha kolay çözüm bulabiliriz
kolay gelsin

 

[selections]

Ekde gönderdiğim dosyayı incelermisiniz.?
Birim fiyatın yazılı olduğu hücrenin ismini birim olarak tanımladım ve ilk satıra yazdığım formülü tutup aşağıya çektim böylece sürüklediğim yere kadar formül kendiliğinden oluşmuş oldu. ikinci yöntem makro ile kodları incelerseniz rahatlıkla yapabilirsiniz.

 

[ahmet114]

selam örnek ekte

bunun gibi 1000 sayfa var burada 188.266 TL yazan hücrelerin hepsinin aynı anda değişmesini istiyorum 1000 tane hücreye tek tek formul yazamam kısa bir yol arıyorum

 

[ahmet114]

gönderdiğiniz örnekten bir şey anlamadım sanırım farklı şeyleri konuşuyoruz ondan sanırım..

 

[selections]

Bence dosyanızın orjinal halini zip leyip gönderin aksi durumda çok fazla yardımcı olunamayacağı kanaatindeyim 1000 tane kayıt hangi mantıkla kaydedilmiş ( kaç tane yan yana, kaç tane alt alta, akç hücre atlayıp alta yazıyorsunuz vb. vb. )

 

[danersin]

Ã?rneğin sayfanızın A1 hücresine yeni değerinizi yazın.

Ctrl+H tuşu ile (Düzen>Değiştir) aranan kısma 188266 yazın
yeni değer içinse =a1 yazın
tüm hücreler a1 hücresine bağlanmış oldu.

İşlemi tam anladıktan sonra dikkatli bir şekilde sayfa tablarından tüm sayfaları seçip hepsinde bir defada yapabilirsiniz.

 

[ahmet114]

dostum en sonki çok güzel bir mantı bul değiştiri biliyordum ama böyle eşittir a1 gibi bilmiyordum sağol bir şey daha öğrendim..

 

[Mahmut1950]

Option Explicit
Sub Sil()
Dim x As Integer, sor As Object
sor = InputBox("", "", "Değiştir")
For x = 1 To Worksheets.Count
  Sheets(x).Cells.Replace "188266", sor, xlPart, xlByRows
Next x
End Sub

[/code]

 

[ahmet114]

bunu nereye yazıcam daha açık yazarmısın excel bilgim pek iyi değil ...makrolara bu dediklerini bir buton oluşturdum butonun içine koyladım ama hata verdi nasıl yaparım açık yazarsanız sevinirim.

 

[danersin]

Bunu bir modüle yerleştirip form butonuna atayın. @Mahmut1950 ya farklı birşey düşünüyordu yada değişken atamada hata yapmış.

[vb:1:a2129c0898]Sub Sil()
Dim x As Integer, degistir, sor As String
degistir = InputBox("Değiştirilecek değer", "")
sor = InputBox("Yeni değer", "")
For x = 1 To Worksheets.Count
Sheets(x).Cells.Replace degistir, sor, xlPart, xlByRows
Next x
End Sub[/vb:1:a2129c0898]