Macro ile hücre eşitleme

[mmk]

aktif sayfa "A1" hücresindeki değeri, gizli sayfalardaki "sayfa1" adlı sayfanın "B1" hücresine yazmasını istiyorum. A1=B1 olması yani, şimdiden teşekkürler. ("A1" hücresinin olduğu sayfadaki butona makro atayarak aktifleştireceğim.)

 

[YUSUF44]

Aşağıdaki kodları dosyanızın BuÇalışmaKitabı(ThisWorkBook) kısmına yapıştırıp deneyin:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveSheet.Name <> "Sayfa1" Then
    If Target.Row = 1 And Target.Column = 1 Then 'Intersect(Target, [A1]) Is Nothing Then Exit Sub
        Sheets("Sayfa1").[B1] = Target
    End If
End If
End Sub

 

[mmk]

Aşağıdaki kodları dosyanızın BuÇalışmaKitabı(ThisWorkBook) kısmına yapıştırıp deneyin:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveSheet.Name <> "Sayfa1" Then
    If Target.Row = 1 And Target.Column = 1 Then 'Intersect(Target, [A1]) Is Nothing Then Exit Sub
        Sheets("Sayfa1").[B1] = Target
    End If
End If
End Sub

Aktif kulladığım makro'ya entegre edeceğim sizden aldığım kodu hocam. kısa özet geçeyim "CALISMA TABLOSU" isimli sayfadaki A1 hücresindeki veriyi, gizli sayfa olan "TICKET" isimli sayfadaki B1 hücresine yazmasını istiyorum.

suan kullandığım makro çalışma tablosunda butona bastığımda ticket sayfasının pdfini alıyor. isteğim almadan önce çalışma tablosundaki veriyi alsın sonra pdfe çevirsin.

Yalnız kodda ÇALIŞMA TABLOSU yerine makronun çalıştığı aktif sayfa olması gerekiyor çünkü aynı ÇALIŞMA TABLOSUNDAN 3 tane, Tickettan 1 tane var. hangi çalışma tablosundan tıklarsam ondaki veri ticketa aktarılsın. biraz uzun oldu umarım anlatabilimişimdir.

 

[YUSUF44]

Makronuzun uygun yerine

Sheets("TICKET").[B1] = ActiveSheet.[A1]

Satırını ekleyip deneyin.

 

[mmk]

Makronuzun uygun yerine

Sheets("TICKET").[B1] = ActiveSheet.[A1]

Satırını ekleyip deneyin.

Hocam tam istediğim buydu macro ile yeni yeni birşeyler yapmaya çalışıyorum basitte olsa sayenizde öğreniyorum. Çok teşekkürler