Verİ Aktarma

[devinim]

Ekli dosyada araçlarımızın lt/km hesabıyla yakıt yüzdelerini tuttuğumuz excel tablsonu görebilirsiniz. Benim sormak istediğim ekli tabloda %36 dan fazla yakıt olan satırların ayrı bir excel tablosunda ard arda sıralanması( tüm satır) . İnşallah derdimi anlatabilmişimdir. Yardımcı olursanız çok sevinirim...

Kolay Gelsin

Oktay Coşar

 

[Kemal Demir]

Selam,

Kod İle Çözümü ek'tedir.İnceleyiniz.Sayfa1 deki kod 26 'ıncı satıra kadar calısmaktadır.(son dolu hucre orası dıyerek hazırlandı)

 

[korkut31]

sn. devinim. sayfaya bir commandbutton koyun. daha sonra bu kodları içine yapıştırın.. dosyanızı indiremedigim için kendi yaptıgım uygulama üzerinden analtacagım.. a1 hücresine 36 yazın. daha sonra farz edlimki sizin sayılarınız safya1 de b6 yadan baslıyarak aşagıya dogru yazılsın ..

Private Sub CommandButton1_Click()
sonsat1 = Sheets("Sayfa1").[b65536].End(3).Row + 1

sonsat2 = Sheets("Sayfa2").[b65536].End(3).Row + 1

For i = 6 To sonsat1
If Cells(i, 2).Value > Cells(1, 1).Value Then
sonsat2 = sonsat2 + 1
Sheets("Sayfa2").Cells(sonsat2, 2).Value = Cells(i, 2).Value
End If
Next i
End Sub


kodları siz kendinize göre kolaylıkla uyarlıyabilirsiniz.
iyi çalışmalar. umarım yardımcı olabilmişizdir.

 

[devinim]

Müthişsiniz; çok teşekkür ederim...

Oktay Coşar