Makro Belirli bir Metin Ataması Hk.

[dEmir1]

Sütundaki değere göre atama.
Bir şeyler yapmaya çalıştım örnekler üzerinden fakat başarılı olamadım.
Tşk Ederim.

 

[ÖmerBey]

Aşağıdaki kodu deneyiniz. Tek butonla halledebilirsiniz. Çıkan mesaj kutusunda;
Evet derseniz E değerini,
Hayır derseniz H değerini arar.

Sub KOD()
Application.ScreenUpdating = False

Dim S1 As Worksheet
Dim S2 As Worksheet
Set S1 = Sheets("Sayfa1")
Set S2 = Sheets("Sayfa2")
S2.Range("A3:N65536").ClearContents
ara = MsgBox("Almak istediğiniz veriyi seçiniz", vbYesNoCancel, "EVET-HAYIR")
If ara = vbYes Then
    ara = "E"
ElseIf ara = vbNo Then
    ara = "H"
Else
    Exit Sub
End If
sat = 3
s1son = S1.[C65536].End(3).Row

For i = 2 To s1son

If S1.Cells(i, "C") = ara Then
S2.Cells(sat, "a") = S1.Cells(i, "A")
S2.Cells(sat, "b") = S1.Cells(i, "B")
S2.Cells(sat, "c") = S1.Cells(i, "C")
S2.Cells(sat, "d") = S1.Cells(i, "D")
S2.Cells(sat, "e") = S1.Cells(i, "E")
sat = sat + 1
Else: End If
Next i

Set S1 = Nothing
Set S2 = Nothing
i = Empty
sat = Empty
Application.ScreenUpdating = True
MsgBox " Bitti "
End Sub

 

[dEmir1]

Çok daha pratik bir çözüm elinize sağlık.
Teşekkür Ederim.

 

[ERMAN2853]

makro yapabilme

Merhabalar ekte yer alan dosyada yeralan uçuşları önce Tarih sona Kuyruk ve sonrada 2 saat zaman diliminde gidiş saatlari(STD) ve gelişsaatleri(STA) baz alarak tek satırda ve sheett birleştirebilirmiyiz.
özet olarak bir uçağın 2 saatlik zaman dilimindeki gidiş-geliş turunu tek satırda görmek istiyoruz.

Ben yapamadım.yardımcı olursanız çok mutlu olurum.