Hirdetés
-
GAMEPOD.hu
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
Delila_1
veterán
Sub Masolas()
Dim cim As String, sor As Long, tartomany As Range, oszlop As Integer, usor As Long
Set tartomany = Selection
sor = tartomany(1).Row
cim = Cells(sor, 2)
On Error Resume Next
oszlop = Application.Match(cim, Range("G1:BB1"), 0)
If VarType(oszlop) = vbError Or oszlo=0 Then
oszlop = Cells(1, Columns.Count).End(xlToLeft).Column + 1
Cells(1, oszlop) = cim
Else
oszlop = oszlop + 6
End If
usor = Cells(Rows.Count, oszlop).End(xlUp).Row + 1
Selection.Copy Cells(usor, oszlop)
End Sub
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
veterán
Az előzőnél az
oszlop = Application.Match(cim, Range("G1:BB1"), 0)
sor olykor 0 értéket ad, ha nem található a G1 : BB1 tartományban a cím.
Az eredetiIf VarType(oszlop) = vbError Then
sort ezért kibővítettemIf VarType(oszlop) = vbError Or oszlop=0 Then
-re, de lemaradt egy p betű az oszlop végéről.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Új hozzászólás Aktív témák
- Formula-1
- Kupon kunyeráló
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Zenelejátszó építése, a kiváló hangzásért
- Revolut
- Honor Magic6 Pro - kör közepén számok
- Ötletek, javaslatok, hogy még jobb legyen a PH! lapcsalád
- PlayStation 5
- ESET NOD32 Antivirus / Smart Security
- Fotók, videók mobillal
- További aktív témák...
Állásajánlatok
Cég: Ozeki Kft
Város: Debrecen
Cég: Ozeki Kft
Város: Debrecen