Toplu Değiştir Hakkında

[IrmakSSS]

:Arkadaşlar öncelikle herkese merhaba.

Toplu veri değişikliği ile ilgil olarak acil yardımlarınızı bekliyorum.
Örnek adlı deneme dosyasın da belirtilen
Fiyatlar isimli sayfaya yazılan değerler bir buton yardımıyla sayfa 2 ( TABLO ) de bulunan sayılara karşılık gelen veriler ile değiştirilecek.

Ve değişim sonucunda hücre dolgu rengi örneğin kırmızı olacak.
Burada önemli olan nokta 1 defa değişen fiyatr degeri ikinci kez makro çalıştıgında değişmeyecek. Mümkünse bu denetimide sağlamalıyım.

Yardımlarınız için şimdiden teşekkürler.
Saygılar

 

[IrmakSSS]

Arkadaşlar yardımcı olabilecek kimse yokmu acaba ???

Acil bir konu
Lütfen birileri yol gösterebilirmi ??

Teşekkür ederim.

 

[Necdet]

Yapıp yapamayacağım hakkında bir fikrim yok ama, ben dosyayı gördükten sonra sorunuzdan hiç bir şey anlamadım.

Anlayan varsa bende merak ettim.

 

[Orion1]

Nasıl yardımcı olalaım.
Fiyatlar sayfasındaki verilerle Tablo sayfası adlı sayfada değerler birbirinden farklı nasıl bir ilişki kurulacak .Konu tam açıklanmamış.Dosya üzerinde örnek gösterin, bu değişti böyle oldu ,veri şu sayfada idi gibi açıklama yapın.
Yoksa cevap almazsınız.Kimseyede ben cevap alamıyorum demeyin.

 

[exam77]

Yapmak istediğiniz nedir ? Biraz açıklayıcı olur musunuz lütfen ?
Verdiğiniz dosyada birbiri ile bağlantılı hiç bişi yok, bu durumda nasıl bir çözüm üretilebilir ki ?

 

[IrmakSSS]

Arkadaşlar konuyu şu şekilde açıklamaya çalışayım.

Sayfa 1 üzerinde yer alan bir fiyat tablom var.
bu fiyatlar B C ve D sütünlarında yer alıyor.
Fiaytların hücre biçimlendirmesi para birimi bazında ve degerler EURO veya $ olarak farklı.

Burada yapmak istediğim Fiyatlar isimli sayfadaki değerleri "Tablo" isimli sayfadaki değerlerin karşılığına denk gelen sayı ile değiştirmek.

Örnek
Fiyat listesinde € 215 var.
bunun karşılığı "tablo" sayfasında yer alıyor Karşılığı = € 256
Tablo adlı sayfada A sutunu fiyatların kendisini B sütünüda karşılıklarını veriyor
buraya değiştir adlı bir buton koyarak
tüm listeyi değiştirmek istiyorum
yani Fiyatlar sayfası tamamen taranacak ve " tablo" sayfasındaki B sütünüdaki veriler girilecek.

aynı zamanda da diğer denetimler gerekli
değişenlere dolgu rengi ve bold olması gibi.

Umarım olumlu sonuc alabiliriz

Saygılar

 

[Korhan Ayhan]

Selamlar,

Anladığım kadarıyla dosyanızı düzenledim. İncelermisiniz.

 

[IrmakSSS]

Sayın Korhan Ayhan,

elinize sağlık. Gerçekten çok güzel olmuş.
Şu anda bu hali ile işimi görüyor.
Aşağıdaki şekilde birkaç ilave yapmamız mümkünmüdür.

1) Font rengi + Bold durumu OK. ilave olarak yazı rengi için kodalama nasıl ilave edilir.
2) Bu kodlar ile sadece Fiyatlar isimli sayfayı değiştirebiliyorum.
Eğer çalışma kitabımda 5 den fazla sayfa varsa ve bunların tamamını değiştirmek istersem ne yapmalıyım.

Gerçekten bu kadarı bile süper olmuş.Mümkünse devamını ve Yardılarınızı bekliyorum.

Saygılar.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz. Dolgu rengi kırmızı, yazı rengini ise beyaz olarak ayarladım.

Sub DEĞİŞTİR()
    For Each Sayfa In Worksheets
    If Sayfa.Name <> "Tablo" Then
    For Each H&#252;cre In Sayfa.Cells.SpecialCells(xlCellTypeConstants, 23)
    If H&#252;cre.Interior.ColorIndex <> 3 And H&#252;cre.Font.Bold <> True Then
    Set BUL = Sheets("Tablo").Columns(1).Find(H&#252;cre.Value, LookAt:=xlWhole)
    If Not BUL Is Nothing Then
    With H&#252;cre
        .Interior.ColorIndex = 3
        .Font.ColorIndex = 2
        .Font.Bold = True
        .Value = Sheets("Tablo").Cells(BUL.Row, 2)
    End With
    End If
    End If
    Next
    End If
    Next
    MsgBox "&#304;&#350;LEM&#304;N&#304;Z TAMAMLANMI&#350;TIR.", vbInformation
End Sub

 

[Necdet]

Ne soruyu anladım ne yanıtı.

Sayın Korhan'ı kutlarım.

 

[Korhan Ayhan]

Selamlar,

Necdet bey,

Bende soruyu ilk okuduğumda anlamamıştım. Fakat dosyayı inceleyince (ve 6. mesajdaki açıklamaları okuyunca) arkadaşımızın Fiyat isimli sayfasında bulunan değerleri Tablo isimli sayfadaki karşılık gelen değerlerle değiştirmek istedi sonucuna vardım.

 

[IrmakSSS]

Merhabalar

Korhan Bey,

Gerçekten söyleyecek kelime yok, Harika demekten başka.
Yardımlarınız için çok teşekkür ederim.
Ellerinize ve emeğinize sağlık.

Şu anda herşey yolunda, programı kullanmaya başlayacağım.
Eğer mümkünse, yazdığınız kodların açıklamalarını yazmanız mümkünmüdür.
Bunu sadece hangi satır hangi işlevi yaptığını anlamak ve öğrenmek için istiyorum.

Mesela " (xlCellTypeConstants, 23)" bu radaki 23 parametresi neyi ifade ediyor.


Eğer mümkünse,

İyi çalışmalar dilerim.

 

[Korhan Ayhan]

Selamlar,

Elimden geldiğince açıklamaya çalıştım. Umarım faydası olur.

Sub DEĞİŞTİR()
    For Each Sayfa In Worksheets
    If Sayfa.Name <> "Tablo" Then
    For Each H&#252;cre In Sayfa.Cells.SpecialCells(xlCellTypeConstants, 23)
    If H&#252;cre.Interior.ColorIndex <> 3 And H&#252;cre.Font.Bold <> True Then
    Set BUL = Sheets("Tablo").Columns(1).Find(H&#252;cre.Value, LookAt:=xlWhole)
    If Not BUL Is Nothing Then
    With H&#252;cre
        .Interior.ColorIndex = 3
        .Font.ColorIndex = 2
        .Font.Bold = True
        .Value = Sheets("Tablo").Cells(BUL.Row, 2)
    End With
    End If
    End If
    Next
    End If
    Next
    MsgBox "&#304;&#350;LEM&#304;N&#304;Z TAMAMLANMI&#350;TIR.", vbInformation
End Sub
 
[COLOR=blue]'UYGULANAN KODUN A&#199;IKLAMALARI[/COLOR]
[COLOR=blue]'1. SATIR - Makromuza DE&#286;&#304;&#350;T&#304;R ad&#305;n&#305; veriyoruz.[/COLOR]
[COLOR=blue]'2. SATIR - For-Each d&#246;ng&#252; y&#246;ntemiyle dosyadaki sayfalar&#305; d&#246;ng&#252;ye al&#305;yoruz.[/COLOR]
[COLOR=blue]'3. SATIR - Sayfa isimlerini kontrol ediyoruz. Tablo isimli sayfan&#305;n d&#305;&#351;&#305;ndaki sayfalarda i&#351;lem yapmak i&#231;in.[/COLOR]
[COLOR=blue]'4. SATIR - Bu sayfalardaki dolu ve sabit h&#252;creleri tesbit etmek i&#231;in SpecialCells(xlCellTypeConstants, 23) _[/COLOR]
[COLOR=blue]    komutunu kullanarak bu alan&#305; ba&#351;ka bir For-Each d&#246;ng&#252;s&#252;ne al&#305;yoruz.[/COLOR]
[COLOR=blue]'5. SATIR - D&#246;rd&#252;nc&#252; sat&#305;rda tesbit edilen h&#252;crelerin dolgu rengini ve yaz&#305; kal&#305;nl&#305;&#287;&#305;n&#305; kontrol ediyoruz.[/COLOR]
[COLOR=blue]'6. SATIR - BUL isimli de&#287;i&#351;kene Tablo isimli sayfan&#305;n 1. s&#252;tunun d&#246;ng&#252;ye al&#305;nan de&#287;erleri arat&#305;yoruz.[/COLOR]
[COLOR=blue]'7. SATIR - E&#287;er aranan de&#287;er Tablo isimli sayfada varsa[/COLOR]
[COLOR=blue]'8-9-10-11-12-13. SATIR - H&#252;crenin dolgu rengini, yaz&#305; rengini, yaz&#305; kal&#305;nl&#305;&#287;&#305;n&#305; ayarlay&#305;p kar&#351;&#305;l&#305;k gelen de&#287;eri aktar&#305;yoruz.[/COLOR]
[COLOR=blue]'14. SATIR - BUL de&#287;erini kontrol eden sorguyu sonland&#305;r&#305;yoruz.[/COLOR]
[COLOR=blue]'15. SATIR - Dolgu rengini ve yaz&#305; kal&#305;nl&#305;&#287;&#305;n&#305; kontrol eden sorguyu sonland&#305;r&#305;yoruz.[/COLOR]
[COLOR=blue]'16. SATIR - &#304;kinci d&#246;ng&#252;m&#252;ze devam ediyoruz.[/COLOR]
[COLOR=blue]'17. SATIR - Sayfa isimlerini kontrol eden sorguyu sonland&#305;r&#305;yoruz.[/COLOR]
[COLOR=blue]'18. SATIR - Birinci d&#246;ng&#252;m&#252;ze devam ediyoruz.[/COLOR]
[COLOR=blue]'19. SATIR - &#304;&#351;lemin bitti&#287;ine dair kullan&#305;c&#305;ya uyar&#305; mesaj&#305; veriyoruz.[/COLOR]
[COLOR=blue]'20. SATIR - Makromuzu sonland&#305;r&#305;yoruz.[/COLOR]