Bu formül makro ile nasıl yazılır

[m.gur]

ANASAYFA
G2 ile G21000 arasında uygulanacak
=EĞER(EĞERSAY($C$1:C2;C2)>1;"";C2)

H2 ile H21000 arasında uygulanacak
=EĞER(G2="";"";MAK($H$1:H1)+1)

Daha devamı da var ama şimdilik bunu öğrenirsem belki diğerlerini uygulayabilirim diye düşünüyorum. Saygılar.

 

[asi_kral]

ANASAYFA
G2 ile G21000 arasında uygulanacak
=EĞER(EĞERSAY($C$1:C2;C2)>1;"";C2)

H2 ile H21000 arasında uygulanacak
=EĞER(G2="";"";MAK($H$1:H1)+1)

Daha devamı da var ama şimdilik bunu öğrenirsem belki diğerlerini uygulayabilirim diye düşünüyorum. Saygılar.

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub çevirmen_1967()
'Konu       :   Belirli 2 Formül Makroya
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Skype      :   m.batu.1967
'Coder By   :   asi_kral_1967
Dim asi As Worksheet, kral As Long
Application.ScreenUpdating = False
Set asi = Sheets("Sayfa1")
For kral = 2 To asi.Cells(21000, "G").End(xlUp).Row
If WorksheetFunction.CountIf(asi.Range("C1:C" & kral), asi.Cells(kral, "C")) = 1 Then
asi.Cells(kral, "G") = asi.Cells(kral, "C")
End If
If asi.Cells(kral, "G") <> "" Then
asi.Cells(kral, "H") = WorksheetFunction.Max(asi.Range("H1:H" & kral)) + 1
End If: Next
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı" & vbLf & Application.UserName, _
vbInformation, "asi_kral_1967"
End Sub

 

[m.gur]

Denedim çalıştı ama hiçbir işlem yapmadı. sadece işlem tamamlandı diye mesaj yazdı.

 

[asi_kral]

Denedim çalıştı ama hiçbir işlem yapmadı. sadece işlem tamamlandı diye mesaj yazdı.

Bende işlem yaptı. Dosyanızı görmeden bir şey söyliyemem.

 

[m.gur]

dosyayı ekliyeyim

 

[asi_kral]

dosyayı ekliyeyim

Merhaba
Bende gayet güzel çalışıyor sadece dosyaya uydurması kalmış kodun.

Option Explicit
Sub çevirmen_1967()
'Konu       :   Belirli 2 Formül Makroya
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Skype      :   m.batu.1967
'Coder By   :   asi_kral_1967
Dim asi As Worksheet, kral As Long
Application.ScreenUpdating = False
Set asi = Sheets("ANASAYFA")
For kral = 2 To asi.Cells(21000, "A").End(xlUp).Row
If WorksheetFunction.CountIf(asi.Range("C1:C" & kral), asi.Cells(kral, "C")) = 1 Then
asi.Cells(kral, "G") = asi.Cells(kral, "C")
End If
If asi.Cells(kral, "G") <> "" Then
asi.Cells(kral, "H") = WorksheetFunction.Max(asi.Range("H1:H" & kral - 1)) + 1
End If: Next
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı" & vbLf & Application.UserName, _
vbInformation, "asi_kral_1967"
End Sub

Dosyanız Ekte.

 

[m.gur]

Sayın asi_kral_1967 teşekkür ederim. Ben dosyayı ekledikten sonra üstünde epey uğraştım kendi dosyam üzerinde. Çalıştırdım ancak bişey dikkatimi çekti sizinde uyarladığınız dosyada da aynı şekilde bir aksaklık oluyor. Şöyle ki; "G" sütunu boş olduğu zaman verileri bulmuyor. G sütununun herhangi bir yerine herhangibir harf yazdığımda G2 ile o yazdığım harf arasında çalışıyor.
Birde dosyanın diğer sayfalarına da bir bakabilirmisiniz onları da kodlayabilirseniz memnun olurum. Saygılar.

 

[asi_kral]

Sayın asi_kral_1967 teşekkür ederim. Ben dosyayı ekledikten sonra üstünde epey uğraştım kendi dosyam üzerinde. Çalıştırdım ancak bişey dikkatimi çekti sizinde uyarladığınız dosyada da aynı şekilde bir aksaklık oluyor. Şöyle ki; "G" sütunu boş olduğu zaman verileri bulmuyor. G sütununun herhangi bir yerine herhangibir harf yazdığımda G2 ile o yazdığım harf arasında çalışıyor.
Birde dosyanın diğer sayfalarına da bir bakabilirmisiniz onları da kodlayabilirseniz memnun olurum. Saygılar.

Üstteki kodu ve dosyayı güncelledim. 6. Mesaj

 

[m.gur]

Teşekkür ederim. Sorunsuz çalışıyor.
Diğer sayfalarıda makroya çevirebilirmisiniz.

 

[asi_kral]

Teşekkür ederim. Sorunsuz çalışıyor.
Diğer sayfalarıda makroya çevirebilirmisiniz.

Bu sorunun yanıtını aldığınıza göre diğerlerini siz yapacaktınız. Yapamazsanız yeni konu açarak sorunuzu sorunuz.
Kolay Gelsin.

 

[m.gur]

Tamamdır ben yapmaya çalışıyorum akşama kadar da uğraşmaya devam edeceğim. Teşekkürler.

 

[asi_kral]

Tamamdır ben yapmaya çalışıyorum akşama kadar da uğraşmaya devam edeceğim. Teşekkürler.

Kolay Gelsin.