Örnek dosyada fiyat listesi (sayfa11) ile sipariş listesi (sayfa13) vardır.
Siparişe kaydedilen ürünlerin fiyat değişimlerinde güncellenmesi amaçlanmaktadır.
Düşünülen işlem sırası şöyledir:
- Siparişteki (sayfa13) AO sütun degeri (fiyat listesinin satır numarası) okunacak
- Fiyat listesinde (sayfa11) ilgili satıra gidilecek ve ilk iki sütunun ( A ve B) eşitligi dogrulanacak
- A ve B sütun degerleri eşit ise fiyat sütunları sipariş listesine yazdırılacak.
- Yeni fiyatlar yazdırılırken degeri degişenler kırmızı renk ile yazılacak
Örnek çalışmalardan yapmış oldugum uyarlama aşagıdadır. Fakat çalışmamaktadır.
Sub SIPGUNCEL()
On Error Resume Next 'HATA VARSA DEVAM EDER
x = 10 'TOPLAM SİP SATIR ADEDİ
su = 35 'SATIR NO BULUNDUGU SÜTUN
ks = 36 'KOPYALANACAK SÜTUN SAYISI
For i = 3 To x 'SİP SATIR SAYISI
st = Sayfa13.Cells(i, su) 'SATIR NO
If st > o Then 'SATIR NO SIFIRDAN FARKLI İSE
If Sayfa13.Cells(i, 1) = Sayfa11.Cells(st, 1) And Sayfa13.Cells(i, 2) = Sayfa11.Cells(st, 2) Then
For a = 4 To ks
Sayfa13.Cells(i, a) = Sayfa11.Cells(st, a)
Next a
End If
End If
Next i
End Sub
İlgilenen arkadaşlara teşekkür ederim.
Siparişe kaydedilen ürünlerin fiyat değişimlerinde güncellenmesi amaçlanmaktadır.
Düşünülen işlem sırası şöyledir:
- Siparişteki (sayfa13) AO sütun degeri (fiyat listesinin satır numarası) okunacak
- Fiyat listesinde (sayfa11) ilgili satıra gidilecek ve ilk iki sütunun ( A ve B) eşitligi dogrulanacak
- A ve B sütun degerleri eşit ise fiyat sütunları sipariş listesine yazdırılacak.
- Yeni fiyatlar yazdırılırken degeri degişenler kırmızı renk ile yazılacak
Örnek çalışmalardan yapmış oldugum uyarlama aşagıdadır. Fakat çalışmamaktadır.
Sub SIPGUNCEL()
On Error Resume Next 'HATA VARSA DEVAM EDER
x = 10 'TOPLAM SİP SATIR ADEDİ
su = 35 'SATIR NO BULUNDUGU SÜTUN
ks = 36 'KOPYALANACAK SÜTUN SAYISI
For i = 3 To x 'SİP SATIR SAYISI
st = Sayfa13.Cells(i, su) 'SATIR NO
If st > o Then 'SATIR NO SIFIRDAN FARKLI İSE
If Sayfa13.Cells(i, 1) = Sayfa11.Cells(st, 1) And Sayfa13.Cells(i, 2) = Sayfa11.Cells(st, 2) Then
For a = 4 To ks
Sayfa13.Cells(i, a) = Sayfa11.Cells(st, a)
Next a
End If
End If
Next i
End Sub
İlgilenen arkadaşlara teşekkür ederim.