İlgili değere göre farklı sheetlere değer yazma

[junes]

not. açıklamaları excel'den okursanız daha anlamlı olur.

Bu sheet içerisinde G Sütununda alınabilecek değerler iki tane. Bir tanesi "opening", diğer is "C/Y". F kolonunda da alýnabilecek değerler "AJE", ve "RJE" olmak üzere iki tane. Bu sheet'i userform ile doldurtuyorum. Bundan sonra G kolonunda "opening" değeri varsa, bu satırı komple "Carry" sheetindeki ilk satıra kopyalamasını istiyorum. Aynı þekilde "C/Y" değerini alan bölüm için de CY AJE sheetindeki ilk satıra kopyalamasını ve devam eden satırlar için aynı aksiyonu tekrarlamasını istiyorum. Yani bu sheet tamamlandığında, makro çalıştırıldığında carry ve CY aje sheetleri de tamamlanmalı. Böyle birşey mümkün müdür?

ilginiz ve vaktiniz için teşekkür ederim.

 

[junes]

Ben sorunu hallettim. Lazım olur diye kodu paylaşayım istedim:

Sub satirkopyala()

Dim tfCol As Range, Cell As Object

Set tfCol = Range("a1:a10000") 'kendi değerlerinizin olduğu aralık ile degistirin
For Each Cell In tfCol

If IsEmpty(Cell) Then
Exit Sub
End If

If Cell.Value = "True" Then
Cell.EntireRow.Copy
Sheets("Sheet1").Select 'kendi sheetinizi yazın
ActiveSheet.Range("A65536").End(xlUp).Select
Selection.Offset(1, 0).Select
ActiveSheet.Paste
End If

Next


End Sub