listeden yeni bir liste çıkartma

[preg09]

slmlar Arkadaşlar ben yeni üye oldum ve siteyi yapan kişiye tsklerimi iletirim.
Benim elimde bir liste var ben bu listedekileri seçicem ve başkabiryerde alt alta sıralayacak.
Örnegin A1 sutunu işaret sütunu olacak orayı isareleyince mesela 1 yazınca B1 de yazan sayfa 2de A1 sütununa gidecek işaretlideğilse yazmayacak.
Ve benim komutları göndereceğim sütuna yazmamam gerek aynı kutucuğa farklı yerlerden gönderi yapabilmem lazım.
işin özetinde seçtiklerim yeni bir liste halinde çıkacak ve alt alta olacak.
=EĞER(Sayfa1!A3="","",Sayfa1!B3) bu sadece oradan bilgi alabiliyor.
yardımlarınızı bekliyorum.

 

[nsertoglu]

listeden rapor yapımı

ekli dosya da örnek bir çalışma sunulmuştur. raporla butonu ile sayfa1 deki A kolonunda 1 ile işaretlenen kayıtlar sayfa2 de raporlanmaktadır. İnceleyiniz. Kolay gelsin.

 

[preg09]

tskrler fakatben bu sayfayı açınca makro hatası verdi.Benim excel 2003 olmaısndan dolayo olabilirmi.Birde diğer kişilerede 1 yazdım ama sayfa 2 de görüntülenmedi.Bu tür programları nasıl oluşturuyoruz beni biraz daha bilgilendirirmisiniz

 

[ozgurgul77]

yok

yok bence sende bir problem var ben excel 2000 var onda çalışıyor sadece sayfayı gezerken baktım

 

[Skorpiyon]

Sayın preg09,

Araçlar - Makro - Güvenlik - Düşük veya Orta olarak ayarlayınız.

Kod doğru çalışıyor.

Saygılarımla...

 

[preg09]

Ben makro kullanmadan problemimi filtreleme ile çözdüm arkadaşlar fakat bu makro olayınıda öğrenmek isterim.
Sayın sertkaya bu ayarları yaptım ama programı çalıştıramadım.
Raporla butonuna tıkladığımda visual basic açılıyor oradan çalıştır dedim olmadı.

 

[Skorpiyon]

Sayın preg09,

Office2003 kullanıyorum. Makro ayarlarım düşük ve Raporla butonuna bastığımda kod çalışarak gerekli işlemi yapıyor.

Bahsedilen ayar yapıldıktan sonra, dosyayı kapatıp tekrar açınız. Kod bölümünün, hata olmadığı sürece veya siz istemidiğiniz sürece çıkması mümkün değildir. (Eğer bir hata mesajı alıyorsanız, lütfen buraya yazınız)

Ayrıyeten probleminizi kendinizin çözmesi kadar güzel bir olayda yoktur.

Saygılarımla...

 

[preg09]

tskrler

Bu makro sorununuda dediğiniz gibi kapatıp açınca halloldu
İlginizden dolayı hepinize teşekkür ederim.
Saygılarımla...

 

[preg09]

Arkadaşlar ben bu makrolu excel dosyasının visual basic dosaysını inceledim bu programda kendime göre bazı değişiklikler yaptım.fakat bir işlemi gerçekleştiremedim
For i = 2 To Cells(65536, "A").End(xlUp).Row
For r = 1 To 200
Cells(i, 1).Select
If Cells(i, 1) = r Then 'A kolonu adet kolonu ve adedi belirtilen satırdaki malzeme sayfa 2'ye aktarılacak'

Sheets("Sayfa2").Select
s2_son = Cells(65536, "A").End(xlUp).Row + 1

Cells(s2_son, "A") = Sheets("sayfa1").Cells(i, "B").Value
Cells(s2_son, "B") = Sheets("sayfa1").Cells(i, "C").Value
Cells(s2_son, "C") = Sheets("sayfa1").Cells(i, "D").Value
Cells(s2_son, "D") = Sheets("sayfa1").Cells(i, "A").Value
Cells(s2_son, "E") = Sheets("sayfa1").Cells(i, "A") * Cells(i, "D").Value
altı çizili satırda çarpa işlemi yapıp göndermek istedim ama sayfa 2'de sonuç sıfır olarak görüntülendi bu çarpma işlemi visual basicte nasıl yapılır yardımlarınızı bekliyorum tskler.

 

[preg09]

son istek

arkadaşlar sorununumu tam dile getiremedim galiba.
Birim fiyat ile adedi çarparak sayafa ikide E sütununa göndermek yani raporlama istiyorum.ben yapmaya çalıştım 0 çıktı
dosayam ekte

 

[Skorpiyon]

Sayın preg09,

Kodlarınızı aşağıdaki şekilde düzeltiniz.

Sub raporla()
Sheets("Sayfa2").Select
Range("a2:d65536").ClearContents
Sheets("Sayfa1").Select
For i = 2 To Cells(65536, "A").End(xlUp).Row
For r = 1 To 200
Cells(i, 1).Select
If Cells(i, 1) = r Then 'A kolonu adet kolonu ve adedi belirtilen satırdaki malzeme sayfa 2'ye aktarılacak'
rn1 = "(b" + LTrim(Str(i)) + "" + LTrim(Str(i)) + ")"
Sayfa1_veri1 = Cells(i, "B").Value
Sayfa1_veri2 = Cells(i, "C").Value
Sayfa1_veri3 = Cells(i, "D").Value
Sayfa1_veri4 = Cells(i, "A").Value
Sayfa1_veri5 = Cells(i, "A") * Cells(i, "D").Value

Sheets("Sayfa2").Select
s2_son = Cells(65536, "A").End(xlUp).Row + 1

Cells(s2_son, "A") = Sheets("sayfa1").Cells(i, "B").Value
Cells(s2_son, "B") = Sheets("sayfa1").Cells(i, "C").Value
Cells(s2_son, "C") = Sheets("sayfa1").Cells(i, "D").Value
Cells(s2_son, "D") = Sheets("sayfa1").Cells(i, "A").Value
For a = 2 To 65536
If Cells(a, 3).Value = "" Then
GoTo 10
Else
Cells(a, 5).Value = Val(Cells(a, 4).Value) * Val(Cells(a, 3).Value)
End If
Next a
10
Sheets("Sayfa1").Select

End If
Next
Next
MsgBox "Raporlama Tamam // Sayfa1 de adedi belirtilen Kayıtlar Sayfa2 ye Aktarıldı.."
Sheets("Sayfa2").Select
Cells(1, 1).Select
End Sub


Saygılarımla...