eğer veya başka bir formülle ilgili yardım

[hduyar]

Bir personel listem var. Çalışan personeller s.no yaz sutünunda sıralansın.
Birinci çalışan personeli bulmama rağmen diğer personelleri bulamadım.
Yardımcı olan arkadaşlara şimdiden teşekkür ederim.

 

[zafer]

Merhaba

Eğer makro ile bir çözüm istiyorsanız
ekli dosyayı inceleyiniz.

Yaz tuşuna basınız.

 

[hduyar]

Tamam.

Güzel olmuş.
Ama F, G ve H sutunlarını temizlesin yani güncellesin ondan sonra yazsın

 

[mehmett]

Zafer beyin yazdığı kodların başına aşağıda verdiğim kırmızı satırları ekleyin.

Sub BUYUK()
[COLOR=red]sil = Cells(65536, 6).End(xlUp).Row[/COLOR]
[COLOR=red]Range("F2:H" & sil) = ""[/COLOR]
son = Cells(65536, 1).End(xlUp).Row + 1
For i = 2 To son
If Cells(i, 3) > 0 Then
c = c + 1
Cells(c + 1, 6) = Cells(i, 1)
Cells(c + 1, 7) = Cells(i, 2)
Cells(c + 1, 8) = Cells(i, 3)
End If
Next
End Sub

 

[hduyar]

Teşekkür

Zafer ve Mehmett kardeşim çok teşekkür ederim. Ellerinize sağlık. Hakkınızı helal edin.