excel makro küçük ise al

[crpzz37]

iyi günler herkese

öncelikle benım calısmamda d:d hucresı boyunda uyelerın aıdatlarına kalan son gunler yazmakta. D : D arasındakı 7 ve 7den tum kucuk sayıları ordan sıralı sekılde yanındakı ısımler dahılınde baska sayfaya cekmek istiyorum bu sayfa actıve oldugu surece devam edecek.

 

[turist]

Foruma hoşgeldiniz.
Basitçe, Sayfa1 de verilerinizin bulunduğunu A2 hücresinden itibaren dizili olduğunu ve Sayfa2 ye bunları almak istediğinizi varsayarsak,
Sayfa2'nin Kod kısmına aşağıdaki kodu uygulayın.

Private Sub Worksheet_Activate()
sat = 2
For i = 2 To Sheets("Sayfa1").Range("D" & Rows.Count).End(3).Row
If Sheets("Sayfa1").Cells(i, "D") <= 7 Then
Sheets("Sayfa2").Cells(sat, 1).Value = Sheets("Sayfa1").Cells(i, 1).Value
Sheets("Sayfa2").Cells(sat, 2).Value = Sheets("Sayfa1").Cells(i, 2).Value
Sheets("Sayfa2").Cells(sat, 3).Value = Sheets("Sayfa1").Cells(i, 3).Value
Sheets("Sayfa2").Cells(sat, 4).Value = Sheets("Sayfa1").Cells(i, 4).Value
sat = sat + 1
End If
Next i
End Sub

 

[crpzz37]

cok saolun teşekkürler

 

[crpzz37]

bu işlemi 7 den kücük 0 dan büyük olarak nasıl yazabilirim

 

[asi_kral]

bu işlemi 7 den kücük 0 dan büyük olarak nasıl yazabilirim

Foruma hoşgeldiniz.
Basitçe, Sayfa1 de verilerinizin bulunduğunu A2 hücresinden itibaren dizili olduğunu ve Sayfa2 ye bunları almak istediğinizi varsayarsak,
Sayfa2'nin Kod kısmına aşağıdaki kodu uygulayın.

Private Sub Worksheet_Activate()
sat = 2
For i = 2 To Sheets("Sayfa1").Range("D" & Rows.Count).End(3).Row
[COLOR="Red"]If Sheets("Sayfa1").Cells(i, "D") <= 7 Then[/COLOR]
Sheets("Sayfa2").Cells(sat, 1).Value = Sheets("Sayfa1").Cells(i, 1).Value
Sheets("Sayfa2").Cells(sat, 2).Value = Sheets("Sayfa1").Cells(i, 2).Value
Sheets("Sayfa2").Cells(sat, 3).Value = Sheets("Sayfa1").Cells(i, 3).Value
Sheets("Sayfa2").Cells(sat, 4).Value = Sheets("Sayfa1").Cells(i, 4).Value
sat = sat + 1
End If
Next i
End Sub

Merhaba
Kırmızı yeri bununla değiştirip deneyin.

If Sheets("Sayfa1").Cells(i, "D") >= 0 And Sheets("Sayfa1").Cells(i, "D") <= 7 Then

 

[crpzz37]

Cok sağolun