Farklı Sayfadaki Hücrede Yazan Adı ve Fiyatı Yazma

[Sefa1994]

Merhabalar,
Ekte bulunan Ciro Tablosunda Sayfa1'deki Dikimhane, Yıkama Ve Ukp bölümlerinde yazan Order ve Model ismi numarasının karşısındaki fiyatı Dikimhane, Yıkama ve Ukp sayfalarındaki yerlere yazmasını istiyorum. burada çok açıklayıcı yazamadım ama ekte gerekli bilgileri verdim.
Vakit ayıranlara ve yardımcı olanlara şimdiden çok teşekkür ederim. İyi çalışmalar.

 

[YUSUF44]

Dosyanızda herhangi bir örnek vermediğiniz için formüllü çözümle uğraşamadım. Ayrıca formüllü çözümlerde fiyat değişiminde eski verilerin de değişme riski, dolayısıyla hatalı hesap yapma sorunu olabilir.

Makrolu çözüm isterseniz aşağıdaki kodları dikimhane,, yıkama ve ukp sayfalarının kod bölümüne (sayfa adına sağ tıklayıp kod görüntüle deyince açılan sayfaya) yapıştırın. O sayfalarda C745 aralığında değişiklik yaptığınızda makro çalışır:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C7:D45]) Is Nothing Then Exit Sub
a = Target.Row
Set s1 = Sheets("Sayfa1")
sondikim = s1.Cells(Rows.Count, "A").End(3).Row
sonyikama = s1.Cells(Rows.Count, "G").End(3).Row
sonukp = s1.Cells(Rows.Count, "M").End(3).Row
If ActiveSheet.Name = "DİKİMHANE" Then
    son = sondikim
    sut = 1
ElseIf ActiveSheet.Name = "YIKAMA" Then
    son = sonyikama
    sut = 7
ElseIf ActiveSheet.Name = "UKP" Then
    son = sonukp
    sut = 13
Else
    Exit Sub
End If

If Cells(a, "C") <> "" And Cells(a, "D") <> "" Then
    For i = 3 To son
        If s1.Cells(i, sut) = Cells(a, "C") And s1.Cells(i, sut + 1) = Cells(a, "D") Then
            Cells(a, "F") = s1.Cells(i, sut + 2)
            Cells(a, "F").Interior.Color = Target.Interior.Color
            Exit Sub
        End If
    Next
End If
Cells(a, "F").Interior.Color = vbRed
Cells(a, "F").ClearContents
MsgBox "Belirtilen sipariş bilgileri bulunamadı!", vbInformation
End Sub

 

[Sefa1994]

Dosyanızda herhangi bir örnek vermediğiniz için formüllü çözümle uğraşamadım. Ayrıca formüllü çözümlerde fiyat değişiminde eski verilerin de değişme riski, dolayısıyla hatalı hesap yapma sorunu olabilir.

Makrolu çözüm isterseniz aşağıdaki kodları dikimhane,, yıkama ve ukp sayfalarının kod bölümüne (sayfa adına sağ tıklayıp kod görüntüle deyince açılan sayfaya) yapıştırın. O sayfalarda C745 aralığında değişiklik yaptığınızda makro çalışır:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C7:D45]) Is Nothing Then Exit Sub
a = Target.Row
Set s1 = Sheets("Sayfa1")
sondikim = s1.Cells(Rows.Count, "A").End(3).Row
sonyikama = s1.Cells(Rows.Count, "G").End(3).Row
sonukp = s1.Cells(Rows.Count, "M").End(3).Row
If ActiveSheet.Name = "DİKİMHANE" Then
    son = sondikim
    sut = 1
ElseIf ActiveSheet.Name = "YIKAMA" Then
    son = sonyikama
    sut = 7
ElseIf ActiveSheet.Name = "UKP" Then
    son = sonukp
    sut = 13
Else
    Exit Sub
End If

If Cells(a, "C") <> "" And Cells(a, "D") <> "" Then
    For i = 3 To son
        If s1.Cells(i, sut) = Cells(a, "C") And s1.Cells(i, sut + 1) = Cells(a, "D") Then
            Cells(a, "F") = s1.Cells(i, sut + 2)
            Cells(a, "F").Interior.Color = Target.Interior.Color
            Exit Sub
        End If
    Next
End If
Cells(a, "F").Interior.Color = vbRed
Cells(a, "F").ClearContents
MsgBox "Belirtilen sipariş bilgileri bulunamadı!", vbInformation
End Sub

Hocam elinize sağlık. Teşekkürler, kolay gelsin.