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

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

BöcekBaşı

Yeni Üye
Katılım
26 Eyl 2018
Mesajlar
8
Puanları
3
Yaş
31
Konum
Samsun
Web sitesi
bebektakvimi.net
Ad Soyad
Serdar
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,077
Puanları
113
Konum
İstanbul
Web sitesi
www.excelarsivi.com
Ad Soyad
Excel Arşivi
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,077
Puanları
113
Konum
İstanbul
Web sitesi
www.excelarsivi.com
Ad Soyad
Excel Arşivi
İ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
 

BöcekBaşı

Yeni Üye
Katılım
26 Eyl 2018
Mesajlar
8
Puanları
3
Yaş
31
Konum
Samsun
Web sitesi
bebektakvimi.net
Ad Soyad
Serdar
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?
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt