rakamsal değer olan verileri bir başka sayfaya otomatik atmak

[mavigun]

Merhaba;
Benim sorunum şu: Yanında rakamsal değer olan verileri bir başka sayfaya otomatik atmasını istiyorum. Yani "0" değerli olan veriyi atmasın. Uzun süredir uğraşıyorum ama çözüm bulamadım
Yardımlarınız için şimdiden çok teşekkür ederim...

 

[halit3]

Merhaba;
Benim sorunum şu: Yanında rakamsal değer olan verileri bir başka sayfaya otomatik atmasını istiyorum. Yani "0" değerli olan veriyi atmasın. Uzun süredir uğraşıyorum ama çözüm bulamadım
Yardımlarınız için şimdiden çok teşekkür ederim...

bu kodu denermisiniz.

Sub aktar()
sat = 2
For i = 2 To WorksheetFunction.CountA(Worksheets("Sayfa1").Range("A2:A65000")) + 2
If Worksheets("Sayfa1").Cells(i, 2).Value > 0 Then
For j = 1 To 2
Worksheets("Sayfa2").Cells(sat, j).Value = Worksheets("Sayfa1").Cells(i, j)
Next j
sat = sat + 1
End If
Next i
End Sub

 

[mavigun]

Oldu hemde süper oldu Çok teşekkür ederim. Nasıl yapıldığını anlatma imkanınız yok galiba değil mi? Şu formül yazma olayı bira karışık

 

[halit3]

Oldu hemde süper oldu Çok teşekkür ederim. Nasıl yapıldığını anlatma imkanınız yok galiba değil mi? Şu formül yazma olayı bira karışık

iyi çalışmalar

 

[mavigun]

Sayın hocam kodu asıl dosyaya uyarlayınca B ve C sütunlarını atmasını istiyorum. Nasıl olacak?

 

[halit3]

Sayın hocam kodu asıl dosyaya uyarlayınca B ve C sütunlarını atmasını istiyorum. Nasıl olacak?

yanlız b ve c mi başka sutunlar yokmu

 

[mavigun]

B-c-d-e-f sutunları

 

[halit3]

Sayın hocam kodu asıl dosyaya uyarlayınca B ve C sütunlarını atmasını istiyorum. Nasıl olacak?

rakamlar hangi sutunda

 

[mavigun]

C D E F sutunlarında

 

[halit3]

C D E F sutunlarında

bunu bir deneyin

Sub aktar()
sat = 2
For i = 2 To WorksheetFunction.CountA(Worksheets("Sayfa1").Range("B2:B65000")) + 2
If Worksheets("Sayfa1").Cells(i, 3).Value > 0 Then
For j = 2 To 6
Worksheets("Sayfa2").Cells(sat, j).Value = Worksheets("Sayfa1").Cells(i, j)
Next j
sat = sat + 1
End If
Next i
End Sub

 

[mavigun]

Çok çok teşekkür ediyorum. Sizin gibi engin excel bilgisine sahip olanları çok kıskanıyorum İyi günler dilerim...

 

[halit3]

Çok çok teşekkür ediyorum. Sizin gibi engin excel bilgisine sahip olanları çok kıskanıyorum İyi günler dilerim...

teşekkür ediyorum bilgimiz küçüçük bir şey faydalı olduysak yeterli
iyi çalışmalar