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.
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sayfada veri değişince diğer sayfada değiştir
- Konbuyu başlatan ADER_34
- Başlangıç tarihi
- Katılım
- 19 Ağustos 2006
- Mesajlar
- 644
- Excel Vers. ve Dili
- Microsoft® Excel® Microsoft 365 için MSO /64 bit /Türkçe
Eki Kontrol Eder misiniz, böyle bir şey istediniz sanırım
- Katılım
- 19 Ağustos 2006
- Mesajlar
- 644
- Excel Vers. ve Dili
- Microsoft® Excel® Microsoft 365 için MSO /64 bit /Türkçe
ptcsite
Altın Üye
- Katılım
- 8 Nisan 2016
- Mesajlar
- 139
- Excel Vers. ve Dili
- M.OFFICE 2021 TR 64 Bit
Bence olmalısınız çok cüzi tutara yıllarca üyesiniz
- Katılım
- 19 Ağustos 2006
- Mesajlar
- 644
- Excel Vers. ve Dili
- Microsoft® Excel® Microsoft 365 için MSO /64 bit /Türkçe
Secure File Sharing - Filemail
Share files of any size, any format, any type, securely
www.filemail.com
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.Secure File Sharing - Filemail
Share files of any size, any format, any type, securely
- Katılım
- 19 Ağustos 2006
- Mesajlar
- 644
- 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ü
"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
- 19 Ağustos 2006
- Mesajlar
- 644
- 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
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
- 19 Ağustos 2006
- Mesajlar
- 644
- 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
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
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
Merhaba Özgür bey her malzeme formu ayrı "Evrak Id" numarası ile açılıyor,fakat bazen aynı ürünler ayrı "EvrakID" no ile farklı zamanlarda geliyor eğer bir ürünü sadece satırına bakarak değiştirirsem başka "Evrak Id" olan üründe değişir, Makro kodu değeri değişen hücre olduğunda önce "Evrak Id" nolarını karşılaştırıp ona göre satırın değerini değirtirecek.Teşekkürler.