• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Çözüldü Hücredeki veriyi başka bir sayfanın adı yapmak!

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

fgecesefa

Yeni Üye
Katılım
25 Eyl 2020
Mesajlar
3
En iyi yanıt
0
Puanları
1
Yaş
33
Konum
antep
Ad Soyad
faruk gece
sayfa 1 de 3 satırlık isim listesi var. sayfa 1 hariç 3 çalışma sayfası var. bu listedeki isimleri çalışma sayfalarına vermek istiyorum. her isim bir sayfayı temsil ediyor. Soru şu; hücredeki isim değiştikçe o hücreyi temsil eden çalışma sayfası ismi yenilemeye yada butona basmaya gerek kalmadan değişsin. şimdiden teşekkür ederim.
 

fgecesefa

Yeni Üye
Katılım
25 Eyl 2020
Mesajlar
3
En iyi yanıt
0
Puanları
1
Yaş
33
Konum
antep
Ad Soyad
faruk gece
Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("r4")) Is Nothing Then
Sheets(3).Name = Target
End If
If Not Intersect(Target, Range("r5")) Is Nothing Then
Sheets(4).Name = Target
End If
If Not Intersect(Target, Range("r6")) Is Nothing Then
Sheets(5).Name = Target
End If
If Not Intersect(Target, Range("r7")) Is Nothing Then
Sheets(6).Name = Target
End If
If Not Intersect(Target, Range("r8")) Is Nothing Then
Sheets(7).Name = Target
End If
If Not Intersect(Target, Range("r9")) Is Nothing Then
Sheets(8).Name = Target
End If
If Not Intersect(Target, Range("r10")) Is Nothing Then
Sheets(9).Name = Target
End If
If Not Intersect(Target, Range("r11")) Is Nothing Then
Sheets(10).Name = Target
End If
If Not Intersect(Target, Range("r12")) Is Nothing Then
Sheets(11).Name = Target
End If
If Not Intersect(Target, Range("r13")) Is Nothing Then
Sheets(12).Name = Target
End If
If Not Intersect(Target, Range("r14")) Is Nothing Then
Sheets(13).Name = Target
End If
If Not Intersect(Target, Range("r15")) Is Nothing Then
Sheets(14).Name = Target
End If
If Not Intersect(Target, Range("r16")) Is Nothing Then
Sheets(15).Name = Target
End If

End Sub

kodu buldum işine yarayan kullanabilir. Herkese teşekkür ederim
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt