Sayfalar Arası Koşula Göre Veri Taşıma

[Hipro]

Merhaba arkadaşlar ufak bir sorum olacak aynı excel dosyasında farklı 2 sayfa aşşağı resimdeki gibi Sayfa 1 de sıra isim meslek bilgisi mevcut bu bilgiler arasında mesleği işçi görünen kişileri sıra ad soyad bilgilerini sayfa 2 ye taşımak istiyorum

 

[TEGCreative]

Veri filtreleme ile bunu yapmanız mümkün. tablonuzu seçerek filtre uygulayıp meslek bölümünde sadece işçileri seçip buna göre sıralatırsınız verileri ve bunu da kopyalayıp sayfa2 ye yapıştırırsınız. Bunu otomatik istiyorsanız eğer dosyanın aslına birebir benzer bir örnek ile desteklerseniz üzerinde sonucu makro ile gösterebilirim.

 

[tarhan822]

Basit bir örnek, üzerinde odeğişiklikler yaparak işinizi çözer.
sub aktar ()
set s1=worksheets("Sayfa1")
set s2=worksheets("Sayfa2")
s2ssay=2
for k=2 to 300000
if cells(k,4)="" exit for
if cells(k,4)="İŞÇİ" then
s2.cells(s2ssay,1)=s1.cells(k,1)
s2.cells(s2ssay,2)=s1.cells(k,2)
s2.cells(s2ssay,3)=s1.cells(k,3)
s2.cells(s2ssay,4)=s1.cells(k,4)
s2ssay=s2ssay+1
end if
next
end sub

 

[Hipro]

otomotik yapmak istiyorum örnek dosya ekte
http://s4.dosya.tc/server3/tjd95t/DENEME.xlsx.html

 

[Hipro]

Basit bir örnek, üzerinde odeğişiklikler yaparak işinizi çözer.
sub aktar ()
set s1=worksheets("Sayfa1")
set s2=worksheets("Sayfa2")
s2ssay=2
for k=2 to 300000
if cells(k,4)="" exit for
if cells(k,4)="İŞÇİ" then
s2.cells(s2ssay,1)=s1.cells(k,1)
s2.cells(s2ssay,2)=s1.cells(k,2)
s2.cells(s2ssay,3)=s1.cells(k,3)
s2.cells(s2ssay,4)=s1.cells(k,4)
s2ssay=s2ssay+1
end if
next
end sub

bu baya bildiğin programlamaya girmiş genelde =eğer gibi formullerle çalıştım bu yazdığınız kodları formul satırınamı yazacam yoksa ayrı bi kod konsolu varmı excel içinde

 

[tarhan822]

Bu excel vba kısmı;
Alt+F11 e basarak kodlama kısmı açılır.
Açılan alanda sağ tıklayıp insert ordan da module seçersen boş sayfa açılır.gönderdiğim kodu kopyala oraya yapıştır.
sonra excel sayfana geçip sayfaya bir şekil ekle sonra eklediğin şekil üzerine sağ tıkla makro ata yı seç, aktar makrosunu görürsün, onu seç.
sonra şekil üzerine geldiğinde parmak işareti geliyorsa olay çözülmüştür.tıkla ve programın çalıştığını test et.

 

[zafer]

Merhaba



Aşağıdaki linkte nasıl kod yazılır anlatılmış.

http://www.excel.web.tr/f60/kod-yazmayy-oreniyorum-t4228.html

 

[Hipro]

Bu excel vba kısmı;
Alt+F11 e basarak kodlama kısmı açılır.
Açılan alanda sağ tıklayıp insert ordan da module seçersen boş sayfa açılır.gönderdiğim kodu kopyala oraya yapıştır.
sonra excel sayfana geçip sayfaya bir şekil ekle sonra eklediğin şekil üzerine sağ tıkla makro ata yı seç, aktar makrosunu görürsün, onu seç.
sonra şekil üzerine geldiğinde parmak işareti geliyorsa olay çözülmüştür.tıkla ve programın çalıştığını test et.

dediklerini uyguladım harfiyen ama en son şekle tıkladığımda kod sayfası geliyor hata veriyor. hata mesajı (Compile Error Syntax Error)

 

[tarhan822]

Haklısınız, doğrudan cevap editöründen yazmıştım.hatayı düzelttim.

Sub aktar()
Set s1 = Worksheets("Sayfa1")
Set s2 = Worksheets("Sayfa2")
s2ssay = 2
For k = 2 To 300000
If s1.Cells(k, 4) = "" Then Exit For
If Cells(k, 4) = "İŞÇİ" Then
s2.Cells(s2ssay, 1) = s1.Cells(k, 1)
s2.Cells(s2ssay, 2) = s1.Cells(k, 2)
s2.Cells(s2ssay, 3) = s1.Cells(k, 3)
s2.Cells(s2ssay, 4) = s1.Cells(k, 4)
s2ssay = s2ssay + 1
End If
Next
End Sub

 

[vardar07]

Deneyiniz.

Dosyanız

 

[nes432]

peki burdaki koşul sutundaki hücre rengi olsa nasıl değiştirilecekti bu formül

 

[vardar07]

peki burdaki koşul sutundaki hücre rengi olsa nasıl değiştirilecekti bu formül

Başkasının sorusu üzerine soru sormadan dosyanızı hazırlayıp cevap ararsanız daha iyi olur ve arkadaşın konusunu dağıtmayıp sizede aynısını yapılmasını istemezdiniz sanırım.