Çözüldü Excel'de Birden Fazla Link Açma

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Katılım
26 Eyl 2018
Mesajlar
8
En İyi Yanıtlar
0
Beğeniler
1
Puanları
3
Yaş
30
Konum
Samsun
Web sitesi
bebektakvimi.net
Ad Soyad
Serdar
#1
Merhabalar aşağıdaki linkleri mesela 10 tanesini seçerek ayrı sekmeler de açılmasını sağlayabilir miyiz acaba?
Ayrıca bir sorum daha olacak excel de 5000 satırda aynı olan satırları nasıl bulabiliriz kısa yolu var mıdır 5000 satır var elimde ama hangileri aynıdır bilemiyorum.
Şimdiden teşekkürler.
 

Admin

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,054
En İyi Yanıtlar
77
Beğeniler
855
Puanları
113
Konum
İstanbul
#3
Merhabalar aşağıdaki linkleri mesela 10 tanesini seçerek ayrı sekmeler de açılmasını sağlayabilir miyiz acaba?
Ayrıca bir sorum daha olacak excel de 5000 satırda aynı olan satırları nasıl bulabiliriz kısa yolu var mıdır 5000 satır var elimde ama hangileri aynıdır bilemiyorum.
Şimdiden teşekkürler.
Merhabalar,

Öncelikle son mesajınızdaki resimde kırmızı ile işaretlenen satırların bir anlamı var mı? O resimde ne anlatmaya çalıştığınızı pek anlamadım.

Aynı olan satırları şöyle bulabilirsiniz;
Sütunu seçin
Giriş Menüsünden Koşullu Biçimlendirmeyi seçin
Hücre Kurallarını Vurgulanın üzerine gelin
Yan tarafta açılan menünün en altındaki Yinelenen Değerleri seçerseniz tekrar edenleri renklendirmiş olursunuz.
Son olarak da, seçtiğiniz sütuna Filtre ekleyin ve Filtre çubuklarını (ok simgesini) seçin ve Renge Göre Filtreleyin..
 

Admin

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,054
En İyi Yanıtlar
77
Beğeniler
855
Puanları
113
Konum
İstanbul
#4
İlk isteğinizi de bu kodla yapabilirsiniz..
Örneğin; A sütununda linkler olsun. Siz de A1 ile A10 arasındaki linkleri seçin ve kodları çalıştırın. (y)

VBA:
Sub ExcelTurkey()
    Dim i&, ilksatir$, metin$, dosya$, adresler As Range
    dosya = Environ("USERPROFILE") & "\desktop\web.bat"
    metin = "@echo off" & Chr(10)
    basla = "start "
    For Each adresler In Selection
        metin = metin & basla & adresler.Value & Chr(10)
    Next adresler
    Open dosya For Output As #1
        Print #1, metin
    Close #1
    VBA.Shell dosya, vbMinimizedFocus
    Application.Wait Now + TimeSerial(0, 0, 1)
    Kill dosya
End Sub
 
Katılım
26 Eyl 2018
Mesajlar
8
En İyi Yanıtlar
0
Beğeniler
1
Puanları
3
Yaş
30
Konum
Samsun
Web sitesi
bebektakvimi.net
Ad Soyad
Serdar
#5
Hocam kırmızı çizgilerin anlamı yok sütundaki linkler için işaretlemiştim sadece. Excel ile çok aram yok kodu nereye yapıştırmak gerekiyor acaba Hocam?
 

Admin

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,054
En İyi Yanıtlar
77
Beğeniler
855
Puanları
113
Konum
İstanbul
#8
Linklerin olduğu birkaç hücreyi seçtiniz mi?
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt