arabul ve diğer sayfaya yerleştir

[denksal]

AA4 VE AA7 yazılan veriler sayfa 2 deki A ve D Sutununda yatay olarak arayacak.yani bu iki satıra yazılan veriler yatay olarak aynı satırda bulacak .ve bulduğu satırları sayfa birdeki yerlere atacak

 

[soykan]

Dosyanız ekte.

 

[denksal]

Hocam eline sağlık ama sayfa 1 deki f17 bakiye toplamı atacaktı. (ayrıca buton koymadan yapamazmıyız ?)

 

[soykan]

Dosyanız ekte. Butonsuz yapmak için makrolardan çağırmanız gerekir ya da her AA7 değiştiğinde otomatik yapabiliriz.
Bilgi verin ona göre değişikliği yapar tekrar yollarım.

 

[soykan]

AA7 değişikliğine göre dosyanız ekte.

 

[denksal]

BU iki ayrı MAKROYu NASIL BİRLİKTE ÇALIŞTIRIRIM

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim a As Integer
If Target.Address = "$AA$7" Then


End If
For a = 2 To Sayfa2.[a50000].End(3).Row

If Sayfa1.[aa4] = Sayfa2.Cells(a, "b") And Sayfa1.[aa7] = Sayfa2.Cells(a, "d") Then


Sayfa1.[F15] = Sayfa2.Cells(a, "a") & " " & "TC" & " " & Sayfa2.Cells(a, "c")
Sayfa1.[F17] = Sayfa2.Cells(a, "e")
End If

Next a
End Sub



Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("aa16")) Is Nothing Then
If [aa16] = "" Then
Sheets("talimat").Rows("272:272").EntireRow.Hidden = True
Else
Sheets("talimat").Rows("272:272").EntireRow.Hidden = False
End If
End If

If Not Intersect(Target, Range("aa16")) Is Nothing Then
If [aa16] = "" Then
Sheets("talimat").Rows("266:266").EntireRow.Hidden = True
Else
Sheets("talimat").Rows("266:266").EntireRow.Hidden = False
End If
End If

If Not Intersect(Target, Range("aa16")) Is Nothing Then
If [aa16] = "" Then
Sheets("talimat").Rows("265:265").EntireRow.Hidden = True
Else
Sheets("talimat").Rows("265:265").EntireRow.Hidden = False
End If
End If

If Not Intersect(Target, Range("aa16")) Is Nothing Then
If [aa16] = "" Then
Sheets("talimat").Rows("267:267").EntireRow.Hidden = True
Else
Sheets("talimat").Rows("267:267").EntireRow.Hidden = False
End If
End If

If Not Intersect(Target, Range("aa16")) Is Nothing Then
If [aa16] = "" Then
Sheets("talimat").Rows("268:268").EntireRow.Hidden = True
Else
Sheets("talimat").Rows("268:268").EntireRow.Hidden = False
End If
End If

If Not Intersect(Target, Range("aa16")) Is Nothing Then
If [aa16] = "" Then
Sheets("talimat").Rows("269:269").EntireRow.Hidden = True
Else
Sheets("talimat").Rows("269:269").EntireRow.Hidden = False
End If
End If

If Not Intersect(Target, Range("aa16")) Is Nothing Then
If [aa16] = "" Then
Sheets("talimat").Rows("271:271").EntireRow.Hidden = True
Else
Sheets("talimat").Rows("271:271").EntireRow.Hidden = False
End If
End If

If Not Intersect(Target, Range("aa17")) Is Nothing Then
If [aa17] = "" Then
Sheets("talimat").Rows("273:273").EntireRow.Hidden = True
Else
Sheets("talimat").Rows("273:273").EntireRow.Hidden = False
End If
End If

End Sub

 

[denksal]

geç gördüm ellerine sağlıkkkk