DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub UserForm_Initialize()
Dim i As Integer
For i = 65 To 90 ' ASCII kodları A-Z arasında
ComboBox1.AddItem Chr(i)
Next i
End Sub
Private Sub ComboBox1_Change()
If ComboBox1.Value = "A" Then
Call CopyColumnA
End If
End Sub
Private Sub CopyColumnA()
Dim wb As Workbook
Dim ws As Worksheet
Dim sourceRange As Range
' Dosya yolunu ve sayfa adını güncelleyin
Set wb = Workbooks.Open("C:\DosyaYolu\DosyaAdi.xlsx")
Set ws = wb.Sheets("SayfaAdi")
' A sütunundaki verileri seç ve kopyala
Set sourceRange = ws.Columns("A")
sourceRange.Copy
' İsteğe bağlı: Kopyalanan veriyi bir başka sayfaya yapıştır
' Set ws = ThisWorkbook.Sheets("HedefSayfaAdi")
' ws.Range("A1").PasteSpecial Paste:=xlPasteValues
' İşlem bittikten sonra çalışma kitabını kapat
wb.Close SaveChanges:=False
End Subgünaydın teşekkürler şimdi deniyorum.
excel sürümüm office365 en güncel lisanslı sürüm hocam şuanda iyi tepki veriyor sizin kodlarınızla bir uyarlama yapmaya çalışıyorum sizden ricam mesela a yı seçince diğer sayfadan a yı kopyalattınız b yi nasıl seçeriz onun formülünü de yazabilirmisiniz lütfen. ben uyarlama yapıyorumda şuan bütün bunları listwievde seçince değil seçtikten sonra bir buton aracılığıyla aktarmayı planlıyorum ona göre ayarlıyorum şuan işime yarıyor kodlarınız
Private Sub CommandButton1_Click()
Dim fso As Object, ad As Object
Dim dosya As String
' Dosya seçme penceresini aç
ChDir ("C:\")
dosya = Application.GetOpenFilename(filefilter:="Tüm Dosyalar (*.*),*.*", Title:="Bir dosya seçiniz")
' Kullanıcı iptal ederse çık
If dosya = "False" Then Exit Sub
' Dosya yolu ve adını al
Set fso = CreateObject("Scripting.FileSystemObject")
Set ad = fso.GetFile(dosya)
' TextBox'lara değerleri yerleştir
TextBox3.Value = ad.Name ' Dosya adını TextBox3'e yaz
TextBox2.Value = ad.Extension ' Dosya uzantısını TextBox2'ye yaz
TextBox1.Text = Left(dosya, Len(dosya) - (Len(ad.Name) + 1)) ' Dosya yolunu TextBox1'e yaz
' Sayfa seçim işlemi
Call SayfayiSec
End SubBu nedir hocam anlamadım? profili düzelticem şimdi okey.
Private Sub CommandButton2_Click()
Dim wb As Workbook
Dim ws As Worksheet
Dim sourceRange As Range
Dim columnLetter As String
' Dosya yolunu ve sayfa adını güncelleyin
Set wb = Workbooks.Open("C:\Users\ibo\Documents\veri\test.xlsx")
Set ws = wb.Sheets("Sayfa1")
' ComboBox'tan seçilen değeri al
columnLetter = ComboBox1.Value ' ComboBox1'deki değer A, B, vb. olmalı
' Seçilen sütuna göre kopyalanacak aralığı belirle
Set sourceRange = ws.Columns(columnLetter) ' Örneğin, "A" veya "B" seçildiğinde, ws.Columns("A") veya ws.Columns("B") kopyalanır.
sourceRange.Copy
' İsteğe bağlı: Kopyalanan veriyi bir başka sayfaya yapıştır
Set ws = ThisWorkbook.Sheets("SATİS")
ws.Range("A1").PasteSpecial Paste:=xlPasteValues
' İşlem bittikten sonra çalışma kitabını kapat
wb.Close SaveChanges:=False
End Subsizi çok iyi anlıyorum ÜSTADIM bende sizin gibiyim yeni başladım hocalar çok kaliteli çok yardımcı oluyolar süper bir site burası ben şahsen çok beğeniyorum yanlız küçük birşeyi atlıyorsunuz sadece a seçildiğinde a, b seçildiğinde b, demiyorum. aşağıdan bir örnek vericem bi bakın tablodan anlıyacağınız gibi ben dosya yoluyla buldugum sayfanın a sını b sini c sini seçip aktarmak istiyorum yani aynı anda hem a hem b hem c yi seçip kopyalamak ve SATİS sayfama yapıştırmak.
Aktar | Alan Adi | Excel Sutunu | Aciklama |
Barkodu | |||
Stok Kodu | A | ||
Birimi 2 | B | ||
Miktarı | |||
Temel Mik. | |||
Fiyatı | |||
Döviz Birimi | |||
Özel Kodu | |||
Ek Bilgi 1 | |||
Ek Bilgi 2 | |||
Ek Bilgi 3 | |||
Ek Bilgi 4 | |||
KDV Oranı | |||
Seri No | |||
Son Kul.Tarihi (Seri/Lot) | |||
Özel Kodu (Seri/Lot) | |||
Açıklama (Seri/Lot) | |||
Depo Adı | |||
Cr.İsk.% | |||
İsk.1 % | |||
İsk.2 % | |||
İsk.3 % | |||
St.Isk.Oran % |
Private Sub CommandButton1_Click()
Dim wb As Workbook
Dim ws As Worksheet
Dim targetWs As Worksheet
Dim sourceRange As Range
Dim columnList As Variant
Dim colIndex As Integer
Dim targetColumn As Integer
Dim i As Integer
' Dosya yolunu ve sayfa adını güncelleyin
Set wb = Workbooks.Open("C:\DosyaYolu\DosyaAdi.xlsx")
Set ws = wb.Sheets("SayfaAdi")
Set targetWs = ThisWorkbook.Sheets("SATİS")
' ComboBox'tan seçilen sütunları alalım
columnList = Split(ComboBox1.Value, ",") ' Sütunları virgülle ayırarak listeyi oluştur
targetColumn = 1 ' Hedef sayfada ilk sütuna yapıştırmaya başla
' Seçilen her bir sütunu kopyalayıp SATİS sayfasına yapıştır
For i = LBound(columnList) To UBound(columnList)
colIndex = ColumnLetterToNumber(Trim(columnList(i))) ' A, B, C gibi harfleri sayısal index'e çevir
Set sourceRange = ws.Columns(colIndex)
' Kopyalama işlemi
sourceRange.Copy
targetWs.Cells(1, targetColumn).PasteSpecial Paste:=xlPasteValues
targetColumn = targetColumn + 1 ' Sonraki sütuna geç
Next i
' İşlem bittikten sonra dosyayı kapat
wb.Close SaveChanges:=False
End Sub
' Harfleri sayısal kolona dönüştürmek için fonksiyon
Function ColumnLetterToNumber(colLetter As String) As Integer
Dim colNum As Integer
colNum = 0
For i = 1 To Len(colLetter)
colNum = colNum * 26 + (Asc(UCase(Mid(colLetter, i, 1))) - 64)
Next i
ColumnLetterToNumber = colNum
End Function
Son mesajınızda a, b, c seçip aktarmak istiyorum demişsiniz.
Konuyu anlayabilmemiz adına sorunuzu yeniden gözden geçirip sorar mısınız?
hocam kopyalıyor ama getirip SATIŞ a yapıştırmıyor şuan yani az önce fonksiyonları almamıştım aldım şuan hata yok ama kopyaladıklarını yapıştırmıyor sadece
dosya karışık kafanız karışmasın diye eklemedim üstadım yoksa dosya önemli değil hemen ekliyeyim ben sizin verdiğiniz kodları uyarlıyorum zaten o nedenle dosyaya çoğu zaman ihtiyaç duymuyorum genede ellerine sağlık Allah razı olsun çok teşekkür ederim.
drive.google.com
