Seçili Kolondaki belirli bir veriyi başka bir yere listeleme

[*Freeman*]

Merhabalar Arkadaşlar,

Sheet1 de tek olan x değerini Sheet 2 deki Listenin altına förmülle nasıl taşıyabilirim (burdaki kayıt silinecek). yardımcı olabilir misiniz, Teşekkürler iyi çalışmalar...

 

[YUSUF44]

Büyük konuçmak istemiyorum ancak isteğinizin ilk kısmı yani diğer sayfaya taşıma muhtemelen bir şekilde formülle yapılabilir ama ikinci kısmı yani ilk sayfadan silinmesinin formülle yapılması ve bu ikisinin aynı anda yapılması imkansız "bence".

 

[*Freeman*]

Yusuf44 Bey, peki sadece birinci kısmı nasıl yaparız...

 

[YUSUF44]

Formülle değil ancak istediğinizi makroyla şu şekilde yapabilirsiniz: Aşağıdaki kodları bir modüle ekleyin ve makroyu çalıştırın:

Sub aktar()
For i = 2 To [a65536].End(xlUp).Row
If WorksheetFunction.CountIf(Range("a2:a" & [a65536].End(xlUp).Row), Cells(i, 1)) = 1 Then
Cells(i, 1).Select
Selection.Cut
Sheets("sheet2").Select
a = Sheets("sheet2").[a1].End(xlDown).Row
If [a2] = "" Then
[a2].Select
Else
Cells(a + 1, 1).Select
End If
ActiveSheet.Paste
Sheets("sheet1 (2)").Select
End If
Next

End Sub

 

[*Freeman*]

Yusuf44 Bey, çok teşekkür ederim tam istediğim gibi çalıştı...

 

[imanuel]

Yusuf44 bey benimde benzer bir sorunum var sanırım sadece hücrelerin yerleri farklı eğer yardımcı olabilirseniz çok sevinirim ekte gönderdiğim formda işaretli hücrelere girilen bilgileri sheet 2 ye alt alta listemek istiyorum şimdiden teşekürler.

 

[YUSUF44]

Yusuf44 bey benimde benzer bir sorunum var sanırım sadece hücrelerin yerleri farklı eğer yardımcı olabilirseniz çok sevinirim ekte gönderdiğim formda işaretli hücrelere girilen bilgileri sheet 2 ye alt alta listemek istiyorum şimdiden teşekürler.

Aşağıdaki kodları bir modüle ekleyip deneyin:

Sub aktar()
Set s1 = Sheets("sheet1")
Set s2 = Sheets("sheet2")
s2.Select
a = s2.[b65536].End(xlUp).Row
s2.Range("B" & a + 1) = s1.[d3]
s2.Range("c" & a + 1) = s1.[e4]
s2.Range("d" & a + 1) = s1.[e6]
s2.Range("e" & a + 1) = s1.[e7]
s2.Range("f" & a + 1) = s1.[e8]
s2.Range("g" & a + 1) = s1.[e9]
s2.Range("h" & a + 1) = s1.[e10]
s1.Select
[d3:d9] = ""
[d3].Select
End Sub

İhtiyaç duyduğunuz bazı bilgileri aşağıdaki sayfalarda bulabilirsiniz:


Makro/Güvenlik ayarları

Modül ekleme

Sayfaya düğme ekleme

 

[imanuel]

teşekkürler çalıştı buton ekleyerek tam istediğim gibi oldu