Sayfada veri değişince diğer sayfada değiştir

Katılım
2 Haziran 2015
Mesajlar
318
Excel Vers. ve Dili
2010
Merhaba arkadaşlar benim sorunum şu "veri sayfası G" sütununda herhangi bir satırda veri değişince, yani "Beklemede" olan değer "Teslim edildi" yapınca makro gidip,"Giriş sayfasında A:F" arası sütunları karşılaştısın ve "Beklemede" olan değeri "Teslim edildi" olarak değiştirsin. Teşekkürler.

 
Katılım
2 Haziran 2015
Mesajlar
318
Excel Vers. ve Dili
2010
Merhaba özgür bey altın üye değilim,dosyayı indirmiyorum link paylaşırmısınz
 
Katılım
2 Haziran 2015
Mesajlar
318
Excel Vers. ve Dili
2010
Merhaba özgür bey dosyayı indirmede sorun yaşıyorum rica etsem tekrar yüklermsiniz? teşekkürler.
 
Katılım
2 Haziran 2015
Mesajlar
318
Excel Vers. ve Dili
2010
Merhaba özgür bey kodlar sorunsuz çalışıyor rica etsem ekleme olarak aynı dosya içinde "Evrak ıd" olarak da eşleşerek değişiklik yapması, çünkü aynı "B" sütunun, aynı ürünlerde oluyor ama "Evrak ID" benzersiz oluyor teşekkürler.
 

catalinastrap

Özgür
Destek Ekibi
Katılım
19 Ağustos 2006
Mesajlar
627
Excel Vers. ve Dili
Microsoft® Excel® Microsoft 365 için MSO /64 bit /Türkçe
Merhaba,
"VERİ" sayfasındaki hangi sütun "GİRİŞ" sayfasındaki hangi sütunla eşleşmeli detay verirseniz daha doğru bir iş yapmış oluruz eklediğiniz örnek biraz karışık çünkü
 
Katılım
2 Haziran 2015
Mesajlar
318
Excel Vers. ve Dili
2010
Merhaba,
"VERİ" sayfasındaki hangi sütun "GİRİŞ" sayfasındaki hangi sütunla eşleşmeli detay verirseniz daha doğru bir iş yapmış oluruz eklediğiniz örnek biraz karışık çünkü
Merhaba,
"VERİ" sayfasındaki hangi sütun "GİRİŞ" sayfasındaki hangi sütunla eşleşmeli detay verirseniz daha doğru bir iş yapmış oluruz eklediğiniz örnek biraz karışık çünkü
GİRİŞ sayfası

Evrak ID

14480​


VERİ Sayfası

ID

14480

 

catalinastrap

Özgür
Destek Ekibi
Katılım
19 Ağustos 2006
Mesajlar
627
Excel Vers. ve Dili
Microsoft® Excel® Microsoft 365 için MSO /64 bit /Türkçe
Kodunuzu güncelledim aşağıdaki kodu geliştirici/ makrolar /"VERİ" sayfasına eski kodu silerek yapıştırın

Private Sub Worksheet_Change(ByVal Target As Range)
Dim wsGiris As Worksheet
Dim degisenHücre As Range
Dim anahtar As Variant
Dim bulunanSatir As Variant
Dim veriSatir As Long

If Not Intersect(Target, Me.Columns(6)) Is Nothing Then
Set wsGiris = ThisWorkbook.Sheets("GİRİŞ")
For Each degisenHücre In Intersect(Target, Me.Columns(6))
veriSatir = degisenHücre.Row
anahtar = Me.Cells(veriSatir, 7).Value
If anahtar <> "" Then
bulunanSatir = 0
On Error Resume Next
bulunanSatir = Application.Match(anahtar, wsGiris.Columns(2), 0)
On Error GoTo 0
If Not IsError(bulunanSatir) And bulunanSatir > 0 Then
wsGiris.Cells(bulunanSatir, 7).Value = degisenHücre.Value ' G sütununa yaz
End If
End If
Next degisenHücre
End If
End Sub
 
Katılım
2 Haziran 2015
Mesajlar
318
Excel Vers. ve Dili
2010
Kodunuzu güncelledim aşağıdaki kodu geliştirici/ makrolar /"VERİ" sayfasına eski kodu silerek yapıştırın

Private Sub Worksheet_Change(ByVal Target As Range)
Dim wsGiris As Worksheet
Dim degisenHücre As Range
Dim anahtar As Variant
Dim bulunanSatir As Variant
Dim veriSatir As Long

If Not Intersect(Target, Me.Columns(6)) Is Nothing Then
Set wsGiris = ThisWorkbook.Sheets("GİRİŞ")
For Each degisenHücre In Intersect(Target, Me.Columns(6))
veriSatir = degisenHücre.Row
anahtar = Me.Cells(veriSatir, 7).Value
If anahtar <> "" Then
bulunanSatir = 0
On Error Resume Next
bulunanSatir = Application.Match(anahtar, wsGiris.Columns(2), 0)
On Error GoTo 0
If Not IsError(bulunanSatir) And bulunanSatir > 0 Then
wsGiris.Cells(bulunanSatir, 7).Value = degisenHücre.Value ' G sütununa yaz
End If
End If
Next degisenHücre
End If
End Sub
[/QUOTEGünaydın özgür bey teşekkür ederim desteğiniz için,fakat tam anlatamadım alttaki örnekte ürünler aynı "EVRAK ID" farklı "VERİ"sayfasında ki değişen değeri tam ürünü olduğu satıra yazması gerekli

Evrak ID

14480​

    

Değişen deger burya değil

xxx

xxx

     

xxx

xxx

     

xxx

xxx

     

xxx

xxx

     

xxx

xx

     

xxx

      

xxx

      
       

Sıra

      

xxx

xx

x

x

x

x

x

4​

Kağıt-1

Beyaz

2​

Paket

300​

Bu satıra yazılmalı

xxx

xx

x

x

x

x

x

xxx

xx

x

x

x

x

x

xxx

xx

x

x

x

x

x

xxx

xx

x

x

x

x

x

xxx

xx

x

x

x

x

x

       

x

      

x

x

x

x

x

  

x

x

x

x

   
       
       

Evrak ID

54563​

    

OK

xxx

xxx

     

xxx

xxx

     

xxx

xxx

     

xxx

xxx

     

xxx

xx

     

xxx

      

xxx

      
       

xxx

      

xxx

xx

x

x

x

x

x

4​

Kağıt-1

Beyaz

2​

Paket

300​

Bekliyor

xxx

xx

x

x

x

x

x

xxx

xx

x

x

x

x

x

xxx

xx

x

x

x

x

x

xxx

xx

x

x

x

x

x

xxx

xx

x

x

x

x

x

       

x

      

x

x

x

x

x

  

x

x

x

x

   
 

catalinastrap

Özgür
Destek Ekibi
Katılım
19 Ağustos 2006
Mesajlar
627
Excel Vers. ve Dili
Microsoft® Excel® Microsoft 365 için MSO /64 bit /Türkçe
bu satırda evrak ID nerede o nedenle size sütunları sordum önceki mesajımda , problemi doğru anlatamazsanız çözümde farklı olur. Siz kendi çalışma sayfanıza hakimsiniz ancak biz ilk defa görüp mantıklı bir örüntü yakalamaya çalışıyoruz ki çözüm üretebilelim. bana hangi sayfadaki sütun hangi sayfadaki sütuna denk geliyor (eşleştirme için) bu bilgiyi birde hangi sayfadaki hangi sütun değiştiğinde hangi sayfadaki sütun güncellenecek bilgisini sıralı verirseniz tam olarak istediğiniz yapmış oluruz.

Yukarıda verdiğiniz örnekte ise aşağıya satırı kopyalıyorum

4

Kağıt-1

Beyaz

2

Paket

300

Bu satıra yazılmalı




Bu satırda benzersiz bir ID numarası ben göremiyorum dolayısı ile hangi mantık ile bu satıra yazılmalı dediğinizi de anlatırsanız bir çözüm üretmeye çalışırım
 
Üst