Makro yazma;

[abbasonline]

ekteki dosyada Sayfa 1 deki verileri Sayfa 2 ye makro ile Sayfa 2 B sütunundaki yazanı almak istiyorum.

 

[asi_kral]

Merhaba
Sayfa2'nin kod bölümüne kopyalayın ve deneyin.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim SYF1 As Worksheet
With WorksheetFunction
If Intersect(Target, Range("B13:B37")) Is Nothing Then _
Application.EnableEvents = True: Exit Sub
Set SYF1 = Sheets("Sayfa1")
If .CountIf(SYF1.Range("B:B"), Target) > 0 Then
Cells(Target.Row, "I") = .VLookup(Target, SYF1.Range("B:L"), 2, 0)
Cells(Target.Row, "X") = .VLookup(Target, SYF1.Range("B:L"), 11, 0)
Else
MsgBox Target & " Verisi Yok", vbCritical
End If: End With
Application.EnableEvents = True
End Sub

 

[abbasonline]

sayın, asi_kral_1967 ben makroyu çalıştıramadım bir türlü ama.

 

[abbasonline]

sayın, asi_kral_1967 TEŞEKKÜRLER ÇALIŞTIRDIM ÇALIŞIYOR, ANCAK KOPYALA YAPIŞTIR YAPTIĞIMDA ERROR HATA VERİYOR KAPATIP AÇTIĞIMDA TEKRAR YAZIYORUM DÜZELİYOR. ELLERİNİZE SAĞLIK.

 

[asi_kral]

sayın, asi_kral_1967 TEŞEKKÜRLER ÇALIŞTIRDIM ÇALIŞIYOR, ANCAK KOPYALA YAPIŞTIR YAPTIĞIMDA ERROR HATA VERİYOR KAPATIP AÇTIĞIMDA TEKRAR YAZIYORUM DÜZELİYOR. ELLERİNİZE SAĞLIK.

Kolay Gelsin.