• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Excelde Satırların Sonuna ve Başına Ekleme Yapmak (çok acil)

  • Konbuyu başlatan Konbuyu başlatan tefon
  • Başlangıç tarihi Başlangıç tarihi
T

tefon

Katılım
6 Nisan 2005
Mesajlar
71
Arkadaşlar elimde

AA310GIG16
AB211HLV00
AB211OEM00
AB212HLV01
AB212OEM00
MK900JTT13
MK900JTT14
MK900JTT15
MK900JTT19
MK900JTT20
MK900JTT21
MK900JTT22
MK900JTT23
MK900JTT24

şeklinde giden stok numaraları var. Stokların başı veya sonu herhangi bir değer ile bitmiyor. Tamamen karışık yani.

Yapmak istediğim bu stok kodlarının başına http://www.örnek-site.com/ sonuna ise .jpg uzantısı eklemek.

Tam anlamı ile özetlemek gerekirse
stok kodu MK900JTT24 olan bir satırı
http://www.örnek-site.com/MK900JTT241.jpg haline getirmem gerekiyor


yardımlarınız için şimdiden teşekkürler.
 
Selamlar,

Verilerinizin A sütununda olduğunu ve A2 hücresinden başladığını varsayarak B2 hücresine aşağıdaki formülü uygulayıp denermisiniz.

Kod: 
="[URL="http://www.örnek-site.com/"]http://www.örnek-site.com/"&A2&".jpg[/URL]"
 
merhaba
a1 de K900JTT241 varsa
http://www.örnek-site.com/&A1&.jpg şeklinde dener misiniz

not: A1 de yazan değerin ön ve arkasına ekleme yaparken (") tırnak işareti koymayı unutmuşum, arkadaşlar düzeltmişler
 
Ben de makro çözümü vereyim.

Kod: 
Sub Yerine_Koy()
Dim r As Range, rg As Range
 
Set rg = Range("A1:A100")
 
For Each r In rg
    r = "[URL]http://www.örnek-site.com/[/URL]" & r & ".jpg"
Next
 
Set rg = Nothing

End Sub
 
Arkadaşamız Makro bölümünde sormuş soruyu, bende makrolu çözüm önerecektim geç kalmışım.

Boşa gitmesin ekleyim bari :)

Kod: 
Sub Duzenle()
Application.ScreenUpdating = False
For i = 1 To [A65536].End(3).Row
    Cells(i, "A") = "[URL]http://www.örnek-site.com/[/URL]" & Cells(i, "A") & ".jpg"
Next i
End Sub
 
elleriniz dert görmesin arkadaşlar çok teşekkür ederim.

ayıp olmazsa bu url'si eklenmiş resimleri bi anda nasıl çekebiliriz onu sormak istiyorum. bi pratik yol bilen ve anlatan olursa çok sevinirim.

şimdiden teşekkürler.
 
cevaplar için teşekkürler tekrar

4069 satır mevcut
A1'den başlayıp A4069'a kadar devam ediyor.
Hepsi de belli bir resmin URL'si

URL'si belirtilen bu resimleri harddiskimde biryere kaydetmem mümkün mü?

teşekkürler.

+ : forumda sanırım zamanlama hatası oldu. son mesajlar üste kaydı
 
"Indir" isimli proseduru çalıştırın. Hedef konum, "C:\" dir.
Kod: 
Private Declare Function URLDownloadToFile Lib "urlmon" _
                            Alias "URLDownloadToFileA" ( _
                            ByVal pCaller As Long, _
                            ByVal szURL As String, _
                            ByVal szFileName As String, _
                            ByVal dwReserved As Long, _
                            ByVal lpfnCB As Long) As Long
 
Private Process As Boolean
 
Sub DownloadFile(URL As String, LocalFilename As String)
Dim lngRetVal As Long
 
Process = False
 
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
 
If lngRetVal <> 0 Then Process = True
End Sub
 
Sub Indir()
Dim i As Long
 
For i = 1 To [a65000].End(3).Row
    DoEvents
    DownloadFile _
        Cells(i, 1), "C:\" & Cells(i, 1)
Next
 
'''Do Until Process = True
'''    DoEvents
'''Loop
MsgBox "Dosya transferi tamamlandı.", vbInformation
End Sub
 
 
&#214;nce referanslardan "MSINET.OCX" i ekleyin.
Kod: 
Sub Indir()
Dim Remaining As Long, FFile As Integer, Chunk() As Byte
Dim FileName As String, Trans As New INET
 
On Error Resume Next
 
For i = 1 To [a65000].End(3).Row
FileName = Right(Cells(i, 1), Len(Cells(i, 1)) - InStrRev(Cells(i, 1), "/"))
 
Trans.Execute Trim(Cells(i, 1)), "GET"
Do While Trans.StillExecuting
DoEvents
Loop
 
Remaining = CLng(Trans.GetHeader("Content-Length"))
 
FFile = FreeFile
 
Open "c:\" & FileName For Binary Access Write As #FFile
 
Do Until Remaining = 0
 
If Remaining > 1024 Then
Chunk = Trans.GetChunk(1024, icByteArray)
Remaining = Remaining - 1024
Else
Chunk = Trans.GetChunk(Remaining, icByteArray)
Remaining = 0
End If
 
Put #FFile, , Chunk
 
Loop
 
Close #FFile
 
Application.Wait Now + TimeSerial(0, 0, 2)
 
Next
 
MsgBox "Dosya tranferi tamamland&#305;.", vbInformation
 
End Sub
 
boyut ve renk değişimi

Merhaba arkadaşlar, epey eski bir konu ama aradığım şeyi bu konuda bulduğum için yine buraya yazmak istedim yeni bir konu oluşturmaktansa.

Elimdeki excel verisinde her değerin başına ve sonuna yeni sabit değerler eklemem gerekiyordu burda bunun cevabını buldum ama!

Sub Yerine_Koy()
Dim r As Range, rg As Range

Set rg = Range("A1:A100")

For Each r In rg
r = "http://www.örnek-site.com/" & r & ".jpg"
Next

Set rg = Nothing

End Sub

Bu makroyu kullandım istediğim gibi tüm satırların başına ve sonuna istediğim değeri girebiliyorum fakat bunların rengi ve boyutu farklı olmalı ve ana değerden baştaki değer bir satır yukarda sondaki değerse en az bir satır aşşağıda olmalı, bu hale getirebilmem mümkünmü yardımlarınızı bekliyorum.
 
x53x53x' Alıntı:
Bu makroyu kullandım istediğim gibi tüm satırların başına ve sonuna istediğim değeri girebiliyorum fakat bunların rengi ve boyutu farklı olmalı ve ana değerden baştaki değer bir satır yukarda sondaki değerse en az bir satır aşşağıda olmalı, bu hale getirebilmem mümkünmü yardımlarınızı bekliyorum.
Genişletmek için tıkla ...

Örnek bir dosya eklerseniz anlaşılması daha kolay olur.
 
Necdet Yeşertener' Alıntı:
Örnek bir dosya eklerseniz anlaşılması daha kolay olur.
Genişletmek için tıkla ...


excelk.jpg


Buradaki excel verisine aşşağıdaki kodu kullanıyorum.

Sub Yerine_Koy()
Dim r As Range, rg As Range

Set rg = Range("A1:A30")

For Each r In rg
r = "ÖNE YAZI " & r & " SONA YAZI"
Next

Set rg = Nothing

End Sub

excel2.jpg


ve bu şekilde istediğim tüm satırlara öne yazı ve arkaya yazı ekleyebiliyorum fakat benim istediğim bu yazıların boyutunun ve renginin farklı olması bu makro kodunda nasıl bir düzenleme yaparsan "ÖNE YAZI, ARKAYA YAZI" bunların rengi ve boyutunu değiştirebilirim? örnek: Kırmızı yazı ile 18 punto bold

excel2.jpg
 
konu hakkında bilgisi olan arkadaşlardan hala yardım beklemekteyim acil şekilde, nette aradım taradım ama birtürlü ulaşamadım aradığım bilgiye.
 
makro kodu ekledikten sonraki excel verisinin halini yukarıdaki resmin altına eklemiştim fakat 2 resim mesaj içerisinde eklenmiyor sanırım makro kod eklendikten sonra excel verisi aşşağıdaki gibi oluyor ve tekrar belirteyim ben burda makro ile eklemiş olduğum "ÖNE YAZI VE SONA YAZI" bu yazıların boyutu ve rengini değiştirmek çok ihtiyacım var bu bilgiye üstadlardan yardım bekliyorum.

excel2d.jpg
 
ben soruyu anladımda çzöümü bilemeiyeceğim

strON = "RESIM"
strSON = ".JPG"

arkadaşımızn A sütunundaki verileri döngüden alınıyor.Örneğin(1453/14185/1498 vs.)

aldığı yeni veri Resim14185.jpg adlı oluyor ancak resim kırmızı .jpg mavi a sütunundan gelen değer yeşil olsun diyor.
 
x53x53x' Alıntı:
Buradaki excel verisine aşşağıdaki kodu kullanıyorum.

Sub Yerine_Koy()
Dim r As Range, rg As Range

Set rg = Range("A1:A30")

For Each r In rg
r = "ÖNE YAZI " & r & " SONA YAZI"
Next

Set rg = Nothing

End Sub

excel2.jpg


ve bu şekilde istediğim tüm satırlara öne yazı ve arkaya yazı ekleyebiliyorum fakat benim istediğim bu yazıların boyutunun ve renginin farklı olması bu makro kodunda nasıl bir düzenleme yaparsan "ÖNE YAZI, ARKAYA YAZI" bunların rengi ve boyutunu değiştirebilirim? örnek: Kırmızı yazı ile 18 punto bold

excel2.jpg
Genişletmek için tıkla ...

İNCELEYİNİZ:
http://www.excel.web.tr/f48/bicimleri-deoi-tirmeden-birle-tirme-t93438.html
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst