Talep fişi hazırlamak

[sancak125]

Sayfa2 deki sipariş fişini Sayfa 1 deki bilgileri kulanarak doldurmak istemekteyim
Uygun makro yazılımı için yardımlarınızı rica ederim

 

[sancak125]

istediğimi Makroyu sitedeki örnekler yardımı ile çözdüm yanlız bir yerde takıldım
a)Birinci sayfada Açık olan sipariş durumunu,2.sayfada ki malzeme istek fişine aktarınca ,Birinci sayfadaki açıkları Kaplı durma getirmek istemekteyim
b)İkinci sayfadaki forum özeliğini bozmadan Makronun çalışmasını İstemekteyim

Mümkünmüdür saygılarımla

 

[Ayhan Ercan]

Kodlarınıza aşağıda kırmızı olarak yazılan satırı ilave ederek deneyiniz...

Sub test()
Set s1 = Sheets("talep fişi hazırla")
Set s2 = Sheets("malzeme istek fişi")
For i = 1 To 100
If s1.Range("g" & i) = "AÇIK" Then
Range(Range("g" & i).Offset(0, 0), Range("g" & i).Offset(0, -6)).Copy
say = WorksheetFunction.CountA(s2.[a1:a65536])
s2.Range("a" & say + 1).PasteSpecial
[B][COLOR=red]s1.Range("g" & i) = "KAPALI"
[/COLOR][/B]End If
Next
Application.CutCopyMode = False
End Sub

 

[sancak125]

Çok teşekür ederim

Bir sorum daha var sabrınıza sığınarak 2.sayfada malzeme istek fişini

Yeni eklenen Açık olan siparişleri Aktarırken Formu Yenilemesi mümkünmüdür

Yani ikinci sayfayı Açık olan siparişleri silip yeni giriş yapmak ve ikinci sayfadaki mevcut formun Biçimini değiştirmemek istiyorum

Çok Teşekkür ederim

 

[Ayhan Ercan]

Çok teşekür ederim

Bir sorum daha var sabrınıza sığınarak 2.sayfada malzeme istek fişini

Yeni eklenen Açık olan siparişleri Aktarırken Formu Yenilemesi mümkünmüdür

Yani ikinci sayfayı Açık olan siparişleri silip yeni giriş yapmak ve ikinci sayfadaki mevcut formun Biçimini değiştirmemek istiyorum

Çok Teşekkür ederim

sorunuzu anlayamıyorum , üzgünüm.....