Herkese iyi forumlar öncelikle,
Mevcut excel dosyamda belirli bir tablom var ve o tabloya başka excelden numara - ürün kodu ve adet olarak 3 farklı sütundan hücreler almam gerekiyor.
Mesela D5 hücresinden başlayıp o sütundaki dolu olan tüm hücreleri alıp. Benim excel dosyamdaki B sütununa yapıştıracak. Ancak ben B sütununa yapıştırırken sütunlar arasında boşluk bırakıp yapıştırmak istiyorum hürceleri(kopyaladığım excel de sütunlar arasında boşluk yoktur)
Mevcut makrom şuanda bu şekildedir bu makrom üzerinden düzenleme yapmanızı rica ederim.
Sub veriCekmek()
With Application.FileDialog(msoFileDialogOpen)
.Filters.Clear
.Filters.Add "Excel 2007-13", "*.xlsx;*.xlsm;*.xlsa;*.csv"
.AllowMultiSelect = False
.Show
If .SelectedItems.Count = 0 Then
MsgBox "Lütfen excel dosyası seçiniz."
Exit Sub
End If
Application.Workbooks.Open .SelectedItems(1)
Set kaynak = Application.ActiveWorkbook
'kaynak.sheets("Ana").range(kopya).Copy
kaynak.ActiveSheet.Range("D5).Copy ThisWorkbook.ActiveSheet.Range("urunkodlari")
kaynak.Close False
Set kaynak = Nothing
End With
End Sub
Mevcut excel dosyamda belirli bir tablom var ve o tabloya başka excelden numara - ürün kodu ve adet olarak 3 farklı sütundan hücreler almam gerekiyor.
Mesela D5 hücresinden başlayıp o sütundaki dolu olan tüm hücreleri alıp. Benim excel dosyamdaki B sütununa yapıştıracak. Ancak ben B sütununa yapıştırırken sütunlar arasında boşluk bırakıp yapıştırmak istiyorum hürceleri(kopyaladığım excel de sütunlar arasında boşluk yoktur)
Mevcut makrom şuanda bu şekildedir bu makrom üzerinden düzenleme yapmanızı rica ederim.
Sub veriCekmek()
With Application.FileDialog(msoFileDialogOpen)
.Filters.Clear
.Filters.Add "Excel 2007-13", "*.xlsx;*.xlsm;*.xlsa;*.csv"
.AllowMultiSelect = False
.Show
If .SelectedItems.Count = 0 Then
MsgBox "Lütfen excel dosyası seçiniz."
Exit Sub
End If
Application.Workbooks.Open .SelectedItems(1)
Set kaynak = Application.ActiveWorkbook
'kaynak.sheets("Ana").range(kopya).Copy
kaynak.ActiveSheet.Range("D5).Copy ThisWorkbook.ActiveSheet.Range("urunkodlari")
kaynak.Close False
Set kaynak = Nothing
End With
End Sub